home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / 3dsprite.s < prev    next >
Text File  |  1997-01-31  |  55KB  |  3,890 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.     lea    MyNewScreen(pc),a0
  42.     CALLINT    OpenScreen        open a screen
  43.     tst.l    d0
  44. ;    beq    exit_closeall        if failed the close both, exit
  45.     move.l    d0,MyScreen
  46.  
  47.     move.l MyScreen,a0
  48.     lea sc_BitMap(a0),a0
  49.     lea bm_Planes(a0),a0
  50.  
  51.     
  52.     move.l #RAWSCRN,(a0)
  53.     move.l #RAWSCRN+10240,4(a0)
  54.     move.l #RAWSCRN+10240*2,8(a0)
  55.     move.l #RAWSCRN+10240*3,12(a0)
  56.     move.l #RAWSCRN+10240*4,16(a0)
  57.     move.l #RAWSCRN+10240*5,20(a0)
  58.     move.l #RAWSCRN+10240*6,24(a0)
  59.     move.l #RAWSCRN+10240*7,28(a0)
  60.  
  61. * now initialise a NewWindow structure. This is normally easier to
  62. * do with dc.w/dc.l statement etc, but for comparison with the C
  63. * version we do it like this
  64.     lea    MyNewWindow(pc),a0    good place to start
  65.     move.w    #20,nw_LeftEdge(a0)
  66.     move.w    #20,nw_TopEdge(a0)
  67.     move.w    #300,nw_Width(a0)
  68.     move.w    #100,nw_Height(a0)
  69.     move.b    #0,nw_DetailPen(a0)
  70.     move.b    #1,nw_BlockPen(a0)
  71.     move.l    #window_title,nw_Title(a0)
  72. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  73.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  74.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  75.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  76.     clr.l    nw_FirstGadget(a0)
  77.     clr.l    nw_CheckMark(a0)
  78.     move.l    MyScreen(pc),nw_Screen(a0)
  79.     clr.l    nw_BitMap(a0)
  80.     move.w    #100,nw_MinWidth(a0)
  81.     move.w    #25,nw_MinHeight(a0)
  82.     move.w    #640,nw_MaxWidth(a0)
  83.     move.w    #200,nw_MaxHeight(a0)
  84.  
  85. * thats it set up, now open the window (a0=NewWindow already)
  86. ;    CALLINT    OpenWindow
  87. ;    tst.l    d0
  88. ;    beq    exit_closescr            if failed
  89. ;    move.l    d0,MyWindow            save it
  90. ;
  91. ;    move.l    d0,a1                window
  92. ;    move.l    wd_RPort(a1),a1            rastport
  93. ;    moveq    #20,d0                X
  94. ;    moveq    #20,d1                Y
  95. ;    CALLGRAF Move                move the cursor
  96. ;
  97. ;    move.l    MyWindow(pc),a0
  98. ;    move.l    wd_RPort(a0),a1            rastport
  99. ;    lea    hello_message(pc),a0
  100. ;    moveq    #11,d0
  101. ;    CALLGRAF Text                print something
  102. ;
  103. ;    move.l    MyWindow(pc),a0
  104. ;    move.l    wd_UserPort(a0),a0
  105. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  106. ;    moveq    #0,d0
  107. ;    bset    d1,d0                do a shift
  108. ;    CALLEXEC Wait
  109.  
  110. ;    moveq    #0,d4                return code
  111.  
  112. * various exit routines that do tidying up, given a return code in d4
  113.  
  114. ;    move.l    MyWindow(pc),a0
  115. ;    CALLINT CloseWindow
  116.  
  117. ;exit_closescr
  118. ;    move.l    MyScreen(pc),a0
  119. ;    CALLINT CloseScreen
  120.  
  121. ;exit_closeall
  122. ;    move.l    _GfxBase(pc),a1
  123. ;    CALLEXEC CloseLibrary
  124.  
  125. ;exit_closeint
  126. ;    move.l    _IntuitionBase(pc),a1
  127. ;    CALLEXEC CloseLibrary
  128.  
  129. ;done:
  130. ;    bra done
  131.  
  132.  move.l #PALETTEBIT,a0
  133.  move.l #COPIEDPAL+4,a1
  134.  move.w #255,d0
  135.  
  136. copydown:
  137.  move.b 1(a0),(a1)
  138.  move.b 3(a0),4(a1)
  139.  move.b 5(a0),8(a1)
  140.  add.w #6,a0
  141.  add.w #12,a1
  142.  dbra d0,copydown
  143.  
  144.  move.w #256,COPIEDPAL
  145.  move.w #0,COPIEDPAL+2
  146. LOOKFORME:
  147.  move.l MyScreen,a0
  148.  lea sc_ViewPort(a0),a0
  149.  move.l #COPIEDPAL,a1
  150.  move.l _GfxBase,a6
  151.  jsr -$372(a6)
  152.  
  153.  move.l MyScreen,a4
  154.  move.w sc_MouseX(a4),d0
  155.  move.w sc_MouseY(a4),d1
  156.  move.w d0,OLDXM
  157.  move.w d1,OLDYM
  158.     
  159.  move.l 4.w,a6
  160.  move.l #doslibname,a1
  161.  moveq #0,d0
  162.  jsr -552(a6)
  163.  move.l d0,doslib
  164.  
  165.  move.l doslib,a6
  166.  move.l #OBJNAME,d1
  167.  move.l #1005,d2
  168.  jsr -30(a6)
  169.  move.l d0,ROTATEDPTS
  170.  
  171.  move.l doslib,a6
  172.  move.l d0,d1
  173.  move.l #POLYGONDATA,d2
  174.  move.l #30000,d3
  175.  jsr -42(a6)
  176.  
  177.  move.l doslib,a6
  178.  move.l ROTATEDPTS,d1
  179.  jsr -36(a6)
  180.  
  181.     
  182. loop:
  183.  
  184.  move.l #POLYGONDATA,a3
  185.  move.w (a3)+,SORTIT
  186.  move.l a3,START_OF_OBJECT
  187.     
  188.  move.w (a3)+,num_points
  189.  move.w (a3)+,d6
  190.  move.w d6,num_frames
  191.  move.l a3,POINTER_TO_POINTERS
  192.  lea (a3,d6.w*4),a3
  193.  move.l a3,LinesPtr
  194.  moveq #0,d5
  195.  moveq #0,d2
  196.  
  197.  move.l POINTER_TO_POINTERS,a4
  198.  move.w (a4,d5.w*4),d2
  199.  add.l START_OF_OBJECT,d2
  200.  move.l d2,PtsPtr
  201.  move.w 2(a4,d5.w*4),d5
  202.  add.l START_OF_OBJECT,d5
  203.  move.l d5,PolyAngPtr
  204.  move.l d2,a3
  205.  move.w num_points,d5
  206.  
  207.  move.l (a3)+,OBJONOFF
  208.  
  209.  move.l a3,PointAngPtr
  210.  add.w d5,d5
  211.  move.w d5,d2
  212.  add.w d5,d5
  213.  add.w d5,d2
  214.  add.w d2,a3
  215.  move.l a3,PtsPtr
  216.  
  217.  move.l MyScreen,a4
  218.  move.w sc_MouseX(a4),d0
  219.  move.w sc_MouseY(a4),d1
  220.  
  221.  sub.w OLDXM,d0
  222.  sub.w OLDYM,d1
  223.  add.w d0,OLDXM
  224.  add.w d1,OLDYM
  225.  
  226.  btst #6,$bfe001
  227.  beq.s .SHIFTABOUT
  228.  
  229.  muls #8190,d0
  230.  divs #320,d0
  231.  add.w d0,YANG
  232.  and.w #8190,YANG
  233.  muls #8190,d1
  234.  divs #320,d1
  235.  and.w #8190,d1
  236.  add.w d1,XANG
  237.  and.w #8190,XANG
  238.  
  239. ; add.w #40,AANG
  240. ; add.w #70,BANG
  241. ; and.w #8191,AANG
  242. ; and.w #8191,BANG
  243.  
  244. ; add.w #60,CANG
  245. ; add.w #90,DANG
  246. ; and.w #8191,CANG
  247. ; and.w #8191,DANG
  248.  
  249.  
  250.  bra .ROTABOUT
  251. .SHIFTABOUT
  252.  
  253.   muls #8190,d0
  254.  divs #320,d0
  255.  add.w d0,BANG
  256.  and.w #8190,BANG
  257.  muls #8190,d1
  258.  divs #320,d1
  259.  and.w #8190,d1
  260.  add.w d1,AANG
  261.  and.w #8190,AANG
  262.  
  263.  
  264. .ROTABOUT
  265.  
  266.  move.w AANG,d1
  267.  move.w BANG,d3
  268. ; cmp.w #2,d6
  269. ; bne.s .notsecrot
  270. ; move.w CANG,d1
  271. ; move.w DANG,d3
  272. ;.notsecrot
  273.  move.l #SINETABLE,a1
  274.  move.w (a1,d1.w),XSIN    ;xsin
  275.  move.w (a1,d3.w),YSIN    ;ysin
  276.  
  277.  add.w #2048,a1
  278.  move.w (a1,d1.w),XCOS    ;xcos
  279.  move.w (a1,d3.w),YCOS    ;ycos
  280.  
  281.  move.w XANG,d1
  282.  move.w YANG,d3
  283. ; cmp.w #2,d6
  284. ; bne.s .notsecrot
  285. ; move.w CANG,d1
  286. ; move.w DANG,d3
  287. ;.notsecrot
  288.  move.l #SINETABLE,a1
  289.  move.w (a1,d1.w),XSIN2    ;xsin
  290.  move.w (a1,d3.w),YSIN2    ;ysin
  291.  
  292.  add.w #2048,a1
  293.  move.w (a1,d1.w),XCOS2    ;xcos
  294.  move.w (a1,d3.w),YCOS2    ;ycos
  295.  
  296.  
  297. ************************************************
  298. ************************************************
  299. ************************************************
  300. ************************************************
  301. ************************************************
  302. ************************************************
  303. ************************************************
  304. ************************************************
  305. ************************************************
  306. ************************************************
  307. ************************************************
  308. ************************************************
  309. ************************************************
  310. ************************************************
  311.  
  312. *SHADOW BUFFER CALCULATION
  313.  
  314.  
  315. ; First, calculate the normal brightnesses
  316. ; for points. NB: -1,-1,-1 = this point not used
  317. ; in gouraud shading.
  318.  
  319.  move.l #NORMBRIGHTS,a2
  320.  move.l PointAngPtr,a0
  321.  move.w num_points,d7
  322.  
  323.  move.l #NORMVECTS,a5
  324.  
  325.  subq #1,d7
  326.  
  327. CALCNORMBRIGHTS:
  328.  
  329.  move.w (a0)+,d0
  330.  move.w (a0)+,d1
  331.  move.w (a0)+,d2
  332.  
  333.  move.w #0,d6
  334.  
  335.  cmp.w #-1,d0
  336.  bne.s .notnot
  337.  cmp.w #-1,d1
  338.  bne.s .notnot
  339.  cmp.w #-1,d2
  340.  bne.s .notnot
  341.  
  342.  move.w #-1,x1
  343.  move.w #-1,y1
  344.  move.w #-1,z1
  345.  bra .dontbother
  346.  
  347. .notnot:
  348.  neg.w d1
  349.  
  350.  move.w d0,d3
  351.  move.w d2,d5
  352.  
  353.  muls YCOS,d0
  354.  muls YSIN,d2
  355.  sub.l d2,d0
  356.  add.l d0,d0
  357.  swap d0
  358. ; asr.l #6,d0    ; new x*512
  359.  
  360.  muls YSIN,d3
  361.  muls YCOS,d5
  362.  add.l d5,d3
  363.  add.l d3,d3
  364.  swap d3
  365.  move.w d3,d2    ; new z
  366.  
  367.  move.w d1,d4
  368.  move.w d2,d5
  369.  muls XCOS,d1
  370.  muls XSIN,d2
  371.  sub.l d2,d1
  372.  add.l d1,d1
  373.  swap d1
  374.  
  375.  muls XSIN,d4
  376.  muls XCOS,d5
  377.  add.l d5,d4
  378.  add.l d4,d4
  379.  swap d4
  380.  move.w d4,d2    ; new z
  381.  
  382.  
  383.  move.w d0,d3
  384.  move.w d2,d5
  385.  
  386.  muls YCOS2,d0
  387.  muls YSIN2,d2
  388.  sub.l d2,d0
  389.  add.l d0,d0
  390.  swap d0
  391.  
  392.  muls YSIN2,d3
  393.  muls YCOS2,d5
  394.  add.l d5,d3    
  395.  add.l d3,d3
  396.  swap d3
  397.  move.w d3,d2    ; new z
  398.  
  399.  move.w d1,d4
  400.  move.w d2,d5
  401.  muls XCOS2,d1
  402.  muls XSIN2,d2
  403.  sub.l d2,d1
  404.  add.l d1,d1
  405.  swap d1
  406.  
  407.  muls XSIN2,d4
  408.  muls XCOS2,d5
  409.  add.l d5,d4
  410.  add.l d4,d4
  411.  swap d4
  412.  
  413.  move.w d0,x1
  414.  move.w d1,y1
  415.  move.w d4,z1
  416.  
  417.  
  418.  move.w d1,d6    ; new y 
  419.  
  420.  asr.w #4,d6
  421.  add.w #20,d6
  422.  
  423.  ble.s .okokok
  424.  
  425.  moveq #0,d6
  426.  
  427. .okokok:
  428.  add.w #$1c,d6
  429.  bge.s .okokokok
  430.  moveq #0,d6
  431. .okokokok:
  432.  
  433.  add.w #64,d6
  434.  
  435. ; 
  436. ; cmp.w #28,d6
  437. ; blt.s .okbig
  438. ; move.w #28,d6
  439. ;.okbig
  440.  
  441. .dontbother:
  442.  move.w x1,(a5)+
  443.  move.w y1,(a5)+
  444.  move.w z1,(a5)+
  445.  move.w d6,(a2)+
  446.  
  447.  dbra d7,CALCNORMBRIGHTS
  448.  
  449.  
  450. ; Next, calculate the point coords for
  451. ; the shadow buffer.
  452.  
  453.  move.l #SHADOWPTS,a2
  454.  move.l PtsPtr,a0
  455.  move.w num_points,d7
  456.  subq #1,d7
  457.  
  458. ROTPTLOPSHAD:
  459.  move.w (a0)+,d0
  460.  move.w d0,d3
  461.  move.w (a0)+,d1
  462.  move.w (a0)+,d2
  463.  move.w d2,d5
  464.  
  465.  muls YCOS,d0
  466.  muls YSIN,d2
  467.  sub.l d2,d0
  468.  add.l d0,d0
  469.  swap d0
  470. ; asr.l #6,d0    ; new x*512
  471.  
  472.  muls YSIN,d3
  473.  muls YCOS,d5
  474.  add.l d5,d3
  475.  add.l d3,d3
  476.  swap d3
  477.  move.w d3,d2    ; new z
  478.  
  479.  move.w d1,d4
  480.  move.w d2,d5
  481.  muls XCOS,d1
  482.  muls XSIN,d2
  483.  sub.l d2,d1
  484.  add.l d1,d1
  485.  swap d1
  486.  
  487.  muls XSIN,d4
  488.  muls XCOS,d5
  489.  add.l d5,d4
  490.  add.l d4,d4
  491.  swap d4
  492.  move.w d4,d2    ; new z
  493.   
  494.  move.w d0,d3
  495.  move.w d2,d5
  496.  
  497.  muls YCOS2,d0
  498.  muls YSIN2,d2
  499.  sub.l d2,d0
  500.  asr.l #6,d0    ; new x*512
  501.  
  502.  muls YSIN2,d3
  503.  muls YCOS2,d5
  504.  add.l d5,d3
  505.  add.l d3,d3
  506.  swap d3
  507.  move.w d3,d2    ; new z
  508.  
  509.  move.w d1,d4
  510.  move.w d2,d5
  511.  muls XCOS2,d1
  512.  muls XSIN2,d2
  513.  sub.l d2,d1
  514.  asr.l #6,d1    ; new y*512
  515.  
  516.  muls XSIN2,d4
  517.  muls XCOS2,d5
  518.  add.l d5,d4
  519.  add.l d4,d4
  520.  swap d4
  521.  move.w d4,d2    ; new z
  522.  
  523.  ext.l d2
  524.  
  525.  move.w XOFF,d5
  526.  ext.l d5
  527.  asl.l #8,d5
  528.  add.l d5,d5
  529.  add.l d5,d0
  530.  
  531.  move.l d0,(a2)+
  532.  move.l d1,(a2)+
  533.  move.w d2,(a2)+
  534.  
  535.  dbra d7,ROTPTLOPSHAD
  536.  
  537.  
  538.  
  539. ***************************************
  540. * Calculate viewer position for specularity..
  541.  
  542.  move.w #0,d0
  543.  move.w #0,d1
  544.  move.w #-1024,d2
  545.  
  546. ; move.w d0,d3
  547. ; move.w d2,d5
  548. ;
  549. ; muls YCOS,d0
  550. ; muls YSIN,d2
  551. ; sub.l d2,d0
  552. ; add.l d0,d0
  553. ; swap d0
  554. ; asr.l #6,d0    ; new x*512
  555. ; 
  556. ; muls YSIN,d3
  557. ; muls YCOS,d5
  558. ; add.l d5,d3
  559. ; add.l d3,d3
  560. ; swap d3
  561. ; move.w d3,d2    ; new z
  562. ;
  563. ; move.w d1,d4
  564. ; move.w d2,d5
  565. ; muls XCOS,d1
  566. ; muls XSIN,d2
  567. ; sub.l d2,d1
  568. ; add.l d1,d1
  569. ; swap d1
  570. ; 
  571. ; muls XSIN,d4
  572. ; muls XCOS,d5
  573. ; add.l d5,d4
  574. ; add.l d4,d4
  575. ; swap d4
  576. ; move.w d4,d2    ; new z
  577.  
  578.  move.w d0,d3
  579.  move.w d2,d5
  580.  
  581.  muls YCOS2,d0
  582.  muls YSIN2,d2
  583.  sub.l d2,d0
  584.  add.l d0,d0
  585.  swap d0
  586.  
  587.  muls YSIN2,d3
  588.  muls YCOS2,d5
  589.  add.l d5,d3    
  590.  add.l d3,d3
  591.  swap d3
  592.  move.w d3,d2    ; new z
  593.  
  594.  move.w d1,d4
  595.  move.w d2,d5
  596.  muls XCOS2,d1
  597.  muls XSIN2,d2
  598.  sub.l d2,d1
  599.  add.l d1,d1
  600.  swap d1
  601. ; asr.l #6,d1    ; new y*512
  602.  
  603.  muls XSIN2,d4
  604.  muls XCOS2,d5
  605.  add.l d5,d4
  606.  add.l d4,d4
  607.  swap d4
  608.  
  609.  move.w d0,x2b
  610.  move.w d1,y2b
  611.  move.w d4,z2b
  612.  
  613. ; Now the specular highlight efforts....
  614.  
  615.  move.l #SPECBRIGHTS,a2
  616.  move.l #NORMVECTS,a1
  617.  
  618.  move.l #SHADOWPTS,a5
  619.  
  620.  move.w num_points,d7
  621.  subq #1,d7
  622.  
  623. CALCSPECBRIGHTS:
  624.  
  625.  move.w (a1)+,x1
  626.  move.w (a1)+,y1
  627.  move.w (a1)+,z1
  628.  
  629.  move.w x2b,d0
  630.  move.l (a5)+,d1
  631.  asr.l #8,d1
  632.  asr.l #1,d1
  633.  sub.w d1,d0
  634.  move.w d0,x2
  635.  move.w y2b,d0
  636.  move.l (a5)+,d1
  637.  asr.l #8,d1
  638.  asr.l #1,d1
  639.  sub.w d1,d0
  640.  move.w d0,y2
  641.  move.w z2b,d0
  642.  sub.w (a5)+,d0
  643.  move.w d0,z2
  644.  
  645.  move.w #0,d6
  646.  
  647.  cmp.w #-1,x1
  648.  bne.s .notnot
  649.  cmp.w #-1,y1
  650.  bne.s .notnot
  651.  cmp.w #-1,z1
  652.  beq .dontbother
  653. .notnot: 
  654.  
  655.  move.w x2,d2
  656.  muls d2,d2
  657.  move.w y2,d1
  658.  muls d1,d1
  659.  add.l d1,d2
  660.  move.w z2,d1
  661.  muls d1,d1
  662.  add.l d1,d2
  663.  
  664.  jsr CALCSQROOT
  665.  
  666.  move.w d2,l2
  667.  
  668.  move.w y1,d0
  669.  muls z2,d0
  670.  move.w y2,d1
  671.  muls z1,d1
  672.  sub.l d1,d0    ; x4
  673.  
  674.  move.w z1,d1
  675.  muls x2,d1
  676.  move.w z2,d2
  677.  muls x1,d2
  678.  sub.l d2,d1    ; y4
  679.  
  680.  move.w x1,d2
  681.  muls y2,d2
  682.  move.w x2,d3
  683.  muls y1,d3
  684.  sub.l d3,d2    ; z4
  685.  
  686.  asr.l #8,d0
  687.  asr.l #8,d1
  688.  asr.l #8,d2
  689.  asr.l #2,d0
  690.  asr.l #2,d1
  691.  asr.l #2,d2
  692.  
  693.  move.w x1,d3
  694.  muls d1,d3
  695.  move.w y1,d4
  696.  muls d0,d4
  697.  sub.l d4,d3
  698.  asr.l #8,d3
  699.  asr.l #1,d3
  700.  add.w z2,d3
  701.  
  702.  muls #1024,d3
  703.  divs l2,d3
  704.  
  705.  move.w d3,z3
  706.  
  707.  move.w y1,d3
  708.  muls d2,d3
  709.  move.w z1,d4
  710.  muls d1,d4
  711.  sub.l d4,d3
  712.  asr.l #8,d3
  713.  asr.l #1,d3
  714.  add.w x2,d3
  715.  muls #1024,d3
  716.  divs l2,d3
  717.  
  718.  move.w d3,x3
  719.  
  720.  move.w z1,d3
  721.  muls d0,d3
  722.  move.w x1,d4
  723.  muls d2,d4
  724.  sub.l d4,d3
  725.  asr.l #8,d3
  726.  asr.l #1,d3
  727.  add.w y2,d3
  728.  muls #1024,d3
  729.  divs l2,d3
  730.  
  731.  move.w d3,y3
  732.  
  733.  move.w z3,d3
  734.  asr.w #3,d3
  735.  add.w #128,d3
  736.  bge.s .okpp
  737.  moveq #0,d3
  738. .okpp
  739.  cmp.w #255,d3
  740.  ble.s .okppp
  741.  move.w #255,d3
  742. .okppp
  743.  
  744.  move.b d3,d6
  745.  lsl.w #8,d6
  746.  
  747.  move.w x3,d3
  748.  asr.w #3,d3
  749.  
  750.  add.w #128,d3
  751.  bge.s .okp
  752.  moveq #0,d3
  753. .okp
  754.  cmp.w #255,d3
  755.  ble.s .okpppp
  756.  move.w #255,d3
  757. .okpppp
  758.  move.b d3,d6
  759.   
  760. ; add.w y2,d3
  761. ;
  762. ; move.w d3,d6
  763. ;
  764. ; asr.w #4,d6
  765. ; 
  766. ; add.w #30,d6
  767. ; 
  768. ; ble.s .okokok
  769. ; 
  770. ; moveq #0,d6
  771. ; 
  772. ;.okokok:
  773. ; add.w #$1c,d6
  774. ; bge.s .okokokok
  775. ; moveq #0,d6
  776. ;.okokokok:
  777.  
  778. ; 
  779. ; cmp.w #28,d6
  780. ; blt.s .okbig
  781. ; move.w #28,d6
  782. ;.okbig
  783.  
  784. .dontbother:
  785.  move.w d6,(a2)+
  786.  move.w y3,(a2)+
  787.  
  788.  dbra d7,CALCSPECBRIGHTS
  789.  
  790.  
  791.  
  792.  
  793. * NOW THE POINTS FOR ON-SCREENNESS
  794.  
  795.  move.l #ROTATEDPTS,a2
  796.  move.l PtsPtr,a0
  797.  move.w num_points,d7
  798.  subq #1,d7
  799.  
  800. ROTPTLOP:
  801.  
  802.  move.w (a0)+,d0
  803.  move.w d0,d3
  804.  move.w (a0)+,d1
  805.  move.w (a0)+,d2
  806.  move.w d2,d5
  807.  
  808.  
  809.  
  810.  muls YCOS,d0
  811.  muls YSIN,d2
  812.  sub.l d2,d0
  813.  asr.l #6,d0    ; new x*512
  814.  
  815.  muls YSIN,d3
  816.  muls YCOS,d5
  817.  add.l d5,d3
  818.  add.l d3,d3
  819.  swap d3
  820.  move.w d3,d2    ; new z
  821.  
  822.  move.w d1,d4
  823.  move.w d2,d5
  824.  muls XCOS,d1
  825.  muls XSIN,d2
  826.  sub.l d2,d1
  827.  asr.l #6,d1    ; new y*512
  828.  
  829.  muls XSIN,d4
  830.  muls XCOS,d5
  831.  add.l d5,d4
  832.  add.l d4,d4
  833.  swap d4
  834.  move.w d4,d2    ; new z
  835.  
  836.  ext.l d2
  837.  
  838.  move.w XOFF,d5
  839.  ext.l d5
  840.  asl.l #8,d5
  841.  add.l d5,d5
  842.  add.l d5,d0
  843.  
  844.  move.l d0,(a2)+
  845.  move.l d1,(a2)+
  846.  move.w d2,(a2)+
  847.  
  848.  dbra d7,ROTPTLOP
  849.  
  850. ; Now convert the rotated points to the screen:
  851.  
  852.  move.l #ROTATEDPTS,a0
  853.  move.l #ONSCREENPTS,a2
  854.  move.w num_points,d7
  855.  subq #1,d7
  856. CONVERTTOSCREEN:
  857.  move.l (a0)+,d0
  858.  move.l (a0)+,d1
  859.  move.w (a0)+,d2
  860.  add.w ZOFF,d2
  861.  ext.l d2
  862.  
  863.  move.l d0,d3
  864.  asr.l #1,d3
  865.  add.l d3,d0 
  866.  move.l d1,d3
  867.  asr.l #1,d3
  868.  add.l d3,d1 
  869.  
  870.  divs d2,d0
  871.  divs d2,d1
  872.  add.w #160*4,d0
  873.  add.w #128*4,d1
  874.  move.w d0,(a2)+
  875.  move.w d1,(a2)+
  876.  dbra d7,CONVERTTOSCREEN
  877.  
  878.  move.w #254,HIGHPOLY
  879.  
  880.  move.l LinesPtr,a1
  881.  move.l #PartBuffer,a0
  882.  move.l a0,a2
  883.  move.w #15,d0
  884. clrpartbuffSHAD:
  885.  move.l #$80000001,(a2)+
  886.  move.l #$80000001,(a2)+
  887.  move.l #$80000001,(a2)+
  888.  move.l #$80000001,(a2)+
  889.  dbra d0,clrpartbuffSHAD
  890.  
  891.  move.l #SHADOWPTS,a2
  892.  move.l OBJONOFF,d5
  893.  
  894.  move.w #0,d4
  895.  tst.w SORTIT
  896.  bne.s PutInPartsSHAD
  897.  
  898.  
  899. putinunsortedSHAD:
  900.  move.w (a1)+,d7
  901.  blt doneallpartsSHAD
  902.  lsr.l #1,d5
  903.  bcs.s .yeson
  904.  addq #2,a1
  905.  bra putinunsortedSHAD
  906. .yeson:
  907.  
  908.  move.w (a1)+,d6
  909.  move.l #0,(a0)+
  910.  move.w d7,(a0)+
  911.  move.w d4,(a0)+
  912.  addq #1,d4
  913.  bra putinunsortedSHAD
  914.  
  915. PutInPartsSHAD
  916.  move.w (a1)+,d7
  917.  blt doneallpartsSHAD
  918.  
  919.  lsr.l #1,d5
  920.  bcs.s .yeson
  921.  addq #2,a1
  922.  bra PutInPartsSHAD
  923. .yeson:
  924.  
  925.  move.w (a1)+,d6
  926.  move.l 4(a2,d6.w),d0
  927.  add.l #200000,d0
  928.  
  929.  move.l #PartBuffer-8,a0
  930.  
  931. stillfrontSHAD
  932.  addq #8,a0
  933.  cmp.l (a0),d0
  934.  blt stillfrontSHAD
  935.  move.l #endparttab-8,a5
  936. domoreshiftSHAD:
  937.  move.l -8(a5),(a5)
  938.  move.l -4(a5),4(a5)
  939.  subq #8,a5
  940.  cmp.l a0,a5
  941.  bgt.s domoreshiftSHAD
  942.  
  943.  move.l d0,(a0)
  944.  move.w d7,4(a0)
  945.  move.w d4,6(a0)
  946.  addq #1,d4
  947.  bra PutInPartsSHAD
  948.  
  949. doneallpartsSHAD:
  950.  
  951.  move.l #PartBuffer,a0
  952.  
  953. PartLoopSHAD
  954.  move.l (a0)+,d7
  955.  blt nomorepartsSHAD
  956.  
  957.  move.l #SAVEHIGHS,a2
  958.  move.w 2(a0),d0
  959.  move.w HIGHPOLY,(a2,d0.w*2)
  960.  
  961.  moveq #0,d0
  962.  move.w (a0),d0
  963.  addq #4,a0
  964.  add.l START_OF_OBJECT,d0
  965.  move.l d0,a1
  966.  
  967. polylooSHAD:
  968.  
  969.  tst.w (a1)
  970.  blt.s nomorepolysSHAD
  971.  movem.l a0/a1/d7,-(a7)
  972.  bsr doaSHADEpoly
  973.  movem.l (a7)+,a0/a1/d7
  974.  
  975.  move.w (a1),d0
  976.  lea 18(a1,d0.w*4),a1
  977.  
  978.  bra.s polylooSHAD
  979. nomorepolysSHAD:
  980.  sub.w #1,HIGHPOLY
  981.  bra PartLoopSHAD
  982. nomorepartsSHAD:
  983.  
  984. *******************************************
  985. * Now the on-screen bit...
  986. *******************************************
  987.  
  988.  move.l LinesPtr,a1
  989.  move.l #PartBuffer,a0
  990.  move.l a0,a2
  991.  move.w #15,d0
  992. clrpartbuff:
  993.  move.l #$80000001,(a2)+
  994.  move.l #$80000001,(a2)+
  995.  move.l #$80000001,(a2)+
  996.  move.l #$80000001,(a2)+
  997.  dbra d0,clrpartbuff
  998.  
  999.  move.l #ROTATEDPTS,a2
  1000.  move.l OBJONOFF,d5
  1001.  
  1002.  moveq #0,d4
  1003.  
  1004.  tst.w SORTIT
  1005.  bne.s PutInParts
  1006.  
  1007. putinunsorted:
  1008.  move.w (a1)+,d7
  1009.  blt doneallparts
  1010.  lsr.l #1,d5
  1011.  bcs.s .yeson
  1012.  addq #2,a1
  1013.  bra putinunsorted
  1014. .yeson:
  1015.  
  1016.  move.w (a1)+,d6
  1017.  move.l #0,(a0)+
  1018.  move.w d7,(a0)+
  1019.  move.w d4,(a0)+
  1020.  
  1021.  addq #1,d4
  1022.  bra putinunsorted
  1023.  
  1024. PutInParts
  1025.  move.w (a1)+,d7
  1026.  blt doneallparts
  1027.  
  1028.  lsr.l #1,d5
  1029.  bcs.s .yeson
  1030.  addq #2,a1
  1031.  bra PutInParts
  1032. .yeson:
  1033.  
  1034.  move.w (a1)+,d6
  1035.  move.l (a2,d6.w),d0
  1036.  asr.l #8,d0
  1037.  asr.l #2,d0
  1038.  muls d0,d0
  1039.  move.l 4(a2,d6.w),d2
  1040.  asr.l #8,d2
  1041.  asr.l #2,d2
  1042.  muls d2,d2
  1043.  add.l d2,d0 
  1044.  move.w 8(a2,d6.w),d2
  1045.  add.w #1024,d2
  1046.  muls d2,d2
  1047.  add.l d2,d0
  1048.  
  1049.  move.l #PartBuffer-8,a0
  1050.  
  1051. stillfront
  1052.  addq #8,a0
  1053.  cmp.l (a0),d0
  1054.  blt stillfront
  1055.  move.l #endparttab-8,a5
  1056. domoreshift:
  1057.  move.l -8(a5),(a5)
  1058.  move.l -4(a5),4(a5)
  1059.  subq #8,a5
  1060.  cmp.l a0,a5
  1061.  bgt.s domoreshift
  1062.  
  1063.  move.l d0,(a0)
  1064.  move.w d7,4(a0)
  1065.  move.w d4,6(a0)
  1066.  addq #1,d4
  1067.  bra PutInParts
  1068.  
  1069. doneallparts:
  1070.  
  1071.  move.l #PartBuffer,a0
  1072.  
  1073. PartLoop
  1074.  move.l (a0)+,d7
  1075.  blt nomoreparts
  1076.  
  1077.  move.l #SAVEHIGHS,a2
  1078.  move.w 2(a0),d0
  1079.  move.w (a2,d0.w*2),HIGHPOLY
  1080.  
  1081.  moveq #0,d0
  1082.  move.w (a0),d0
  1083.  addq #4,a0
  1084.  add.l START_OF_OBJECT,d0
  1085.  move.l d0,a1
  1086.  
  1087. polyloo:
  1088.  
  1089.  tst.w (a1)
  1090.  blt.s nomorepolys
  1091.  movem.l a0/a1/d7,-(a7)
  1092.  bsr doapoly
  1093.  movem.l (a7)+,a0/a1/d7
  1094.  
  1095.  move.w (a1),d0
  1096.  lea 18(a1,d0.w*4),a1
  1097.  
  1098.  bra.s polyloo
  1099. nomorepolys:
  1100.  sub.w #1,HIGHPOLY
  1101.  bra PartLoop
  1102. nomoreparts:
  1103.  
  1104. NOPOLYS:
  1105.  
  1106. ; btst #6,$bfe001
  1107. ; beq.s .SHOWSHADOW
  1108.  
  1109.  move.l FASTBUFFER,a0
  1110.  add.l #40*320+64,a0
  1111.  move.l #RAWSCRN,a1
  1112.  add.l #40*40+8,a1
  1113.  move.l #(24)-1,d0
  1114.  move.l #175,d1
  1115.  move.w #128,d2
  1116.  move.w #16,d3
  1117.  moveq #0,d4
  1118.  moveq #0,d5
  1119.  jsr CHUNKYTOPLANAR 
  1120.  
  1121.  bra .SHOWNSCRN
  1122.  
  1123. .SHOWSHADOW
  1124.  
  1125.  move.l #SHADOWBUFFER,a0
  1126.  add.l #40*256,a0
  1127.  move.l #RAWSCRN,a1
  1128.  add.l #40*40,a1
  1129.  move.l #(256/8)-1,d0
  1130.  move.l #175,d1
  1131.  move.w #0,d2
  1132.  move.w #8,d3
  1133.  moveq #0,d4
  1134.  moveq #0,d5
  1135.  jsr CHUNKYTOPLANAR 
  1136.  
  1137. .SHOWNSCRN:
  1138.  
  1139.  move.l FASTBUFFER,a0
  1140.  move.l #NEBBIE,a1
  1141.  add.l #40*320+64,a0
  1142.  
  1143.  move.w #175,d0
  1144. clrchunk:
  1145.  move.l (a1)+,(a0)+
  1146.  move.l (a1)+,(a0)+
  1147.  move.l (a1)+,(a0)+
  1148.  move.l (a1)+,(a0)+
  1149.  move.l (a1)+,(a0)+
  1150.  move.l (a1)+,(a0)+
  1151.  move.l (a1)+,(a0)+
  1152.  move.l (a1)+,(a0)+
  1153.  move.l (a1)+,(a0)+
  1154.  move.l (a1)+,(a0)+
  1155.  move.l (a1)+,(a0)+
  1156.  move.l (a1)+,(a0)+
  1157.  move.l (a1)+,(a0)+
  1158.  move.l (a1)+,(a0)+
  1159.  move.l (a1)+,(a0)+
  1160.  move.l (a1)+,(a0)+
  1161.  move.l (a1)+,(a0)+
  1162.  move.l (a1)+,(a0)+
  1163.  move.l (a1)+,(a0)+
  1164.  move.l (a1)+,(a0)+
  1165.  move.l (a1)+,(a0)+
  1166.  move.l (a1)+,(a0)+
  1167.  move.l (a1)+,(a0)+
  1168.  move.l (a1)+,(a0)+
  1169.  move.l (a1)+,(a0)+
  1170.  move.l (a1)+,(a0)+
  1171.  move.l (a1)+,(a0)+
  1172.  move.l (a1)+,(a0)+
  1173.  move.l (a1)+,(a0)+
  1174.  move.l (a1)+,(a0)+
  1175.  move.l (a1)+,(a0)+
  1176.  move.l (a1)+,(a0)+
  1177.  move.l (a1)+,(a0)+
  1178.  move.l (a1)+,(a0)+
  1179.  move.l (a1)+,(a0)+
  1180.  move.l (a1)+,(a0)+
  1181.  move.l (a1)+,(a0)+
  1182.  move.l (a1)+,(a0)+
  1183.  move.l (a1)+,(a0)+
  1184.  move.l (a1)+,(a0)+
  1185.  move.l (a1)+,(a0)+
  1186.  move.l (a1)+,(a0)+
  1187.  move.l (a1)+,(a0)+
  1188.  move.l (a1)+,(a0)+
  1189.  move.l (a1)+,(a0)+
  1190.  move.l (a1)+,(a0)+
  1191.  move.l (a1)+,(a0)+
  1192.  move.l (a1)+,(a0)+
  1193.  add.w #(320-192),a0
  1194.  dbra d0,clrchunk
  1195.  
  1196.  move.l #SHADOWBUFFER,a0
  1197.  move.l #-1,d1
  1198.  move.l #-1,d2
  1199.  move.w #15,d0
  1200. ;clrshad:
  1201. ; move.w #15,d5
  1202. ;innner
  1203. ; move.l d2,(a0)+
  1204. ; move.l d2,(a0)+
  1205. ; move.l d2,(a0)+
  1206. ; move.l d2,(a0)+
  1207. ; move.l d1,(a0)+
  1208. ; move.l d1,(a0)+
  1209. ; move.l d1,(a0)+
  1210. ; move.l d1,(a0)+
  1211. ; move.l d2,(a0)+
  1212. ; move.l d2,(a0)+
  1213. ; move.l d2,(a0)+
  1214. ; move.l d2,(a0)+
  1215. ; move.l d1,(a0)+
  1216. ; move.l d1,(a0)+
  1217. ; move.l d1,(a0)+
  1218. ; move.l d1,(a0)+
  1219. ; move.l d2,(a0)+
  1220. ; move.l d2,(a0)+
  1221. ; move.l d2,(a0)+
  1222. ; move.l d2,(a0)+
  1223. ; move.l d1,(a0)+
  1224. ; move.l d1,(a0)+
  1225. ; move.l d1,(a0)+
  1226. ; move.l d1,(a0)+
  1227. ; move.l d2,(a0)+
  1228. ; move.l d2,(a0)+
  1229. ; move.l d2,(a0)+
  1230. ; move.l d2,(a0)+
  1231. ; move.l d1,(a0)+
  1232. ; move.l d1,(a0)+
  1233. ; move.l d1,(a0)+
  1234. ; move.l d1,(a0)+
  1235. ; move.l d2,(a0)+
  1236. ; move.l d2,(a0)+
  1237. ; move.l d2,(a0)+
  1238. ; move.l d2,(a0)+
  1239. ; move.l d1,(a0)+
  1240. ; move.l d1,(a0)+
  1241. ; move.l d1,(a0)+
  1242. ; move.l d1,(a0)+
  1243. ; move.l d2,(a0)+
  1244. ; move.l d2,(a0)+
  1245. ; move.l d2,(a0)+
  1246. ; move.l d2,(a0)+
  1247. ; move.l d1,(a0)+
  1248. ; move.l d1,(a0)+
  1249. ; move.l d1,(a0)+
  1250. ; move.l d1,(a0)+
  1251. ; move.l d2,(a0)+
  1252. ; move.l d2,(a0)+
  1253. ; move.l d2,(a0)+
  1254. ; move.l d2,(a0)+
  1255. ; move.l d1,(a0)+
  1256. ; move.l d1,(a0)+
  1257. ; move.l d1,(a0)+
  1258. ; move.l d1,(a0)+
  1259. ; move.l d2,(a0)+
  1260. ; move.l d2,(a0)+
  1261. ; move.l d2,(a0)+
  1262. ; move.l d2,(a0)+
  1263. ; move.l d1,(a0)+
  1264. ; move.l d1,(a0)+
  1265. ; move.l d1,(a0)+
  1266. ; move.l d1,(a0)+
  1267. ; dbra d5,innner
  1268. ; exg d1,d2
  1269. ;
  1270. ; dbra d0,clrshad
  1271.  
  1272.  
  1273.  
  1274.     btst #7,$bfe001
  1275.     beq.s exit_closescr
  1276.  
  1277.  
  1278.     add.l #$8000,lmxoff
  1279.     cmp.l #40*65536,lmxoff
  1280.     blt.s .oksm
  1281.     sub.l #40*65536,lmxoff    
  1282. .oksm
  1283.  
  1284.     bra loop
  1285.     
  1286. lmxoff: dc.l 0
  1287.  
  1288. exit_closescr
  1289.     move.l    MyScreen(pc),a0
  1290.     CALLINT CloseScreen
  1291.  
  1292. exit_closeall
  1293.     move.l    _GfxBase(pc),a1
  1294.     CALLEXEC CloseLibrary
  1295.  
  1296. exit_closeint
  1297.     move.l    _IntuitionBase(pc),a1
  1298.     CALLEXEC CloseLibrary
  1299.  
  1300. exit_false
  1301.     move.l    #0,d0                return code
  1302.     rts
  1303.  
  1304. TESTTAB: ds.w 30
  1305.  
  1306. ************************************************
  1307. * SUBROUTINES HERE. ****************************
  1308. ************************************************
  1309.  
  1310.  
  1311. **********************************************************
  1312.  
  1313. * the definition of the screen - note that in assembler you
  1314. * MUST get the sizes of these fields correct, by consulting either
  1315. * the RKM or the header files
  1316.  
  1317.  
  1318. MyNewScreen    dc.w    0,0        left, top
  1319.         dc.w    320,256        width, height
  1320.         dc.w    8        depth
  1321.         dc.b    0,1        pens
  1322.         dc.w    0        viewmodes
  1323.         dc.w    CUSTOMSCREEN    type
  1324.         dc.l    MyFont        font
  1325.         dc.l    screen_title    title
  1326.         dc.l    0        gadgets
  1327.         dc.l    0        bitmap
  1328.  
  1329. * my font definition
  1330. MyFont    dc.l    font_name
  1331.     dc.w    TOPAZ_SIXTY
  1332.     dc.b    FS_NORMAL
  1333.     dc.b    FPF_ROMFONT
  1334.  
  1335. * the variables
  1336. _IntuitionBase    dc.l    0        Intuition lib pointer
  1337. _GfxBase    dc.l    0        graphics lib pointer
  1338. MyScreen        dc.l    0
  1339. MyWindow        dc.l    0
  1340. MyNewWindow    ds.b    nw_SIZE        a buffer
  1341.  
  1342.  
  1343. * some strings
  1344. int_name    INTNAME
  1345. graf_name    GRAFNAME
  1346. hello_message    dc.b    'Hello World'
  1347.  
  1348. * these are C strings, so have to be null terminated
  1349. screen_title    dc.b    'My Own Screen',0
  1350. font_name    dc.b    'topaz.font',0
  1351. window_title    dc.b    'A Simple Window',0
  1352.  
  1353.  even
  1354.  
  1355.  
  1356. doaSHADEpoly:
  1357.  
  1358.  move.w (a1)+,d7    ; sides to draw
  1359.  addq #2,a1        ; avoid holes
  1360.  
  1361.  move.l #SHADOWPTS,a3
  1362.  
  1363.  move.w (a1),d0
  1364.  move.w 4(a1),d1
  1365.  move.w 8(a1),d2
  1366.  muls #10,d0
  1367.  muls #10,d1
  1368.  muls #10,d2
  1369.  move.w 8(a3,d0.w),d3
  1370.  move.w 8(a3,d1.w),d4
  1371.  move.w 8(a3,d2.w),d5
  1372.  move.l (a3,d0.w),d0
  1373.  move.l (a3,d1.w),d1
  1374.  move.l (a3,d2.w),d2
  1375.  asr.l #8,d0
  1376.  asr.l #8,d1
  1377.  asr.l #8,d2
  1378.  asr.l #1,d0
  1379.  asr.l #1,d1
  1380.  asr.l #1,d2
  1381.  
  1382.  sub.w d1,d0
  1383.  sub.w d1,d2
  1384.  sub.w d4,d3
  1385.  sub.w d4,d5
  1386.  muls d3,d2
  1387.  muls d5,d0
  1388.  sub.l d0,d2
  1389.  bge SHADpolybehind
  1390.  
  1391.  move.w #20000,d4    ; top
  1392.  move.w #-20000,d5    ; bottom
  1393.  move.l #UVCOORDS,a4
  1394.  
  1395. putinlinesSHAD:
  1396.  move.w (a1),d0
  1397.  move.w 4(a1),d1
  1398.  
  1399.  moveq #0,d2
  1400.  move.b 2(a1),d2    ; one end U
  1401.  move.w d2,2(a4,d0.w*4)
  1402.  move.b 3(a1),d2    ; one end V
  1403.  move.w d2,(a4,d0.w*4)
  1404.  move.b 6(a1),d2    ; two end U
  1405.  move.w d2,2(a4,d1.w*4)
  1406.  move.b 7(a1),d2    ; two end V
  1407.  move.w d2,(a4,d1.w*4)
  1408.  
  1409.  move.w d0,d2
  1410.  muls #10,d2
  1411.  move.w 8(a3,d2.w),d2    ; Z
  1412.  
  1413.  cmp.w d2,d4
  1414.  ble.s .oktop
  1415.  move.w d2,d4
  1416. .oktop
  1417.  cmp.w d2,d5
  1418.  bge.s .okbot
  1419.  move.w d2,d5
  1420. .okbot
  1421.  
  1422.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1423.  bsr SIMPLESHADLINE
  1424.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1425.  addq #4,a1
  1426.  dbra d7,putinlinesSHAD
  1427.  addq #4,a1
  1428.   
  1429.  move.w (a1)+,TEXTUREADD
  1430.  
  1431.  asr.w #2,d4
  1432.  asr.w #2,d5
  1433.  add.w #128,d4
  1434.  add.w #128,d5
  1435.  move.w d4,TOPLINE
  1436.  move.w d5,BOTLINE
  1437.  
  1438. * Now draw the shadow polygon....
  1439.  
  1440.  move.l #SHADOWBUFFER,a2
  1441.  move.l #LEFTUVS,a0
  1442.  move.w TOPLINE,d0
  1443.  move.w BOTLINE,d1
  1444.  sub.w d0,d1
  1445.  asl.w #3,d0
  1446.  add.w d0,a0
  1447.  muls #(256/8),d0
  1448.  add.l d0,a2    ; pointer to screen line.
  1449.  
  1450.  subq #1,d1
  1451.  blt NOPOLYGONSHAD
  1452.  
  1453. DOAHORLINESHAD:
  1454.  swap d1
  1455.  
  1456.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1457.  move.w (a0)+,d7
  1458.  sub.w d7,d0
  1459.  blt NOPOLYGONSHAD
  1460.  
  1461.  move.l a2,-(a7)
  1462.  
  1463. ; asr.w #2,d0
  1464. ; asr.w #2,d7
  1465.  add.w d7,a2
  1466.  ext.l d0
  1467.  addq #1,d0
  1468.  
  1469.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1470.  move.w (a0)+,d4
  1471.  swap d7
  1472.  clr.w d7
  1473.  swap d4
  1474.  clr.w d4
  1475.  sub.l d4,d7
  1476.  divs.l d0,d7
  1477.  move.l d7,a5
  1478.  
  1479.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1480.  swap d7
  1481.  clr.w d7
  1482.  move.w (a0)+,d5
  1483.  swap d5
  1484.  clr.w d5
  1485.  sub.l d5,d7
  1486.  divs.l d0,d7
  1487.  move.l d7,a6
  1488.  
  1489.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1490.  swap d7
  1491.  clr.w d7
  1492.  move.w (a0)+,d6
  1493.  swap d6
  1494.  clr.w d6
  1495.  sub.l d6,d7
  1496.  divs.l d0,d7
  1497.  move.l d7,a3
  1498.  
  1499.  move.l a0,-(a7)
  1500.  move.l d1,-(a7)
  1501.  move.l #TEXTURES,a0
  1502.  move.w TEXTUREADD,d7
  1503.  bge.s .okaddtes3
  1504.  and.w #$7fff,d7
  1505.  add.l #65536*2,a0
  1506. .okaddtes3:
  1507.  ext.l d7
  1508.  add.l d7,d7
  1509.  add.l d7,a0
  1510.  move.w #0,d7
  1511.  
  1512.  subq #1,d0
  1513.  
  1514. ; d0=xdist
  1515. ; d4=U  a5=DU
  1516. ; d5=V  a6=DV
  1517. ; d6=Y  a3=DY
  1518.  moveq #0,d1
  1519.  
  1520.  swap d6
  1521.  
  1522. PLOTADOT:
  1523.  
  1524. .across
  1525.  
  1526.  swap d4
  1527.  swap d5
  1528.  move.w d4,d2
  1529.  lsl.w #8,d2
  1530.  swap d4
  1531.  move.b d5,d2
  1532.  add.l a5,d4
  1533.  swap d5
  1534.  add.l a6,d5
  1535.  
  1536.  
  1537. ; swap d6
  1538. ; move.b (a2)+,d1
  1539. ; tst.b 1(a0,d2.w*8)
  1540. ; beq.s .noplottt
  1541.  move.b d6,(a2)+
  1542.  
  1543.  dbra d0,.across
  1544.  bra.s .plaster
  1545.  
  1546. .noplottt:
  1547.  addq #1,a2
  1548.  dbra d0,.across
  1549.  
  1550. .plaster:
  1551.  
  1552.  move.l (a7)+,d1
  1553.  move.l (a7)+,a0
  1554.  move.l (a7)+,a2
  1555.  
  1556. .noline:
  1557.  add.w #256,a2
  1558.  
  1559.  swap d1
  1560.  dbra d1,DOAHORLINESHAD
  1561.  
  1562. NOPOLYGONSHAD:
  1563.  
  1564. SHADpolybehind:
  1565.  rts
  1566.  
  1567.  
  1568. ************************************************
  1569.  
  1570. LU: dc.w 0
  1571. LV: dc.w 0
  1572. RU: dc.w 0
  1573. RV: dc.w 0
  1574.     
  1575. SIMPLESHADLINE:
  1576.  move.l #SHADOWPTS,a1
  1577.  
  1578.  move.l #UVCOORDS,a2
  1579.  move.w (a2,d0.w*4),LU
  1580.  move.w 2(a2,d0.w*4),LV
  1581.  move.w (a2,d1.w*4),RU
  1582.  move.w 2(a2,d1.w*4),RV
  1583.  
  1584.  muls #10,d0
  1585.  muls #10,d1
  1586.  move.w 8(a1,d0.w),d2        ;fz
  1587.  move.w 8(a1,d1.w),d7        ;sz
  1588.  ext.l d2
  1589.  ext.l d7
  1590.  
  1591.  move.l #LEFTUVS,a3
  1592.  asr.l #2,d2
  1593.  asr.l #2,d7
  1594.  cmp.l d2,d7 
  1595.  beq .noline
  1596.  
  1597.  bgt.s .lineonright
  1598. .lineonleft:
  1599.  move.l #RIGHTUVS,a3
  1600.  exg d0,d1
  1601.  exg d2,d7
  1602.  
  1603.  move.l LU,d5
  1604.  move.l RU,LU
  1605.  move.l d5,RU
  1606.  
  1607. .lineonright:
  1608.  
  1609.  sub.w d2,d7
  1610.  add.w #128,d2
  1611.  lea (a3,d2.w*8),a3
  1612.  
  1613.  move.w d7,YDIFF
  1614.  
  1615.  move.l (a1,d0.w),d3        ;fx
  1616.  move.l (a1,d1.w),d7        ;sx
  1617.  
  1618.  asl.l #5,d3
  1619.  asl.l #5,d7
  1620.  
  1621.  sub.l d3,d7
  1622.  divs.l YDIFF-2,d7
  1623.  move.l d7,a0    ; dx
  1624.  
  1625.  move.l #ROTATEDPTS,a1
  1626.  
  1627.  move.w LU,d4
  1628.  move.w LV,d5
  1629.  move.w RU,d6
  1630.  move.w RV,d7
  1631.  
  1632.  sub.w d4,d6
  1633.  sub.w d5,d7
  1634.  swap d4
  1635.  swap d5
  1636.  clr.w d4
  1637.  clr.w d5
  1638.  swap d6
  1639.  swap d7
  1640.  clr.w d6
  1641.  clr.w d7
  1642.  
  1643.  divs.l YDIFF-2,d6
  1644.  divs.l YDIFF-2,d7
  1645.  
  1646.  move.l d6,a4
  1647.  move.l d7,a5
  1648.  
  1649. ; asl.w #4,d0
  1650. ; asl.w #4,d1
  1651.  
  1652.  move.l 4(a1,d0.w),d6
  1653.  move.l 4(a1,d1.w),d7
  1654.  asl.l #5,d6
  1655.  asl.l #5,d7
  1656.  sub.l d6,d7
  1657.  divs.l YDIFF-2,d7
  1658.  exg d7,a6
  1659.  exg d7,d6
  1660.  
  1661.  move.l YDIFF-2,d1
  1662.  subq #1,d1
  1663.  
  1664. ; d3=x a0=dx
  1665. ; d4=u a4=du
  1666. ; d5=v a5=dv
  1667. ; d7=y a6=dy
  1668. ; d1=dz
  1669.  
  1670.  move.w HIGHPOLY,d7
  1671.  
  1672.  add.l #128*65536,d3
  1673. ; add.l #128*65536,d7
  1674.  
  1675. .PUTINLINE:
  1676.  swap d3
  1677.  move.w d3,(a3)+
  1678.  swap d3
  1679.  add.l a0,d3
  1680.  swap d4
  1681.  move.w d4,(a3)+
  1682.  swap d4
  1683.  swap d5
  1684.  add.l a4,d4
  1685.  move.w d5,(a3)+
  1686.  swap d5
  1687.  add.l a5,d5
  1688. ; swap d7
  1689.  move.w d7,(a3)+
  1690. ; swap d7
  1691. ; add.l a6,d7
  1692.  dbra d1,.PUTINLINE
  1693.  
  1694. .noline:
  1695.  rts
  1696.  
  1697.  
  1698. **************************************************
  1699.  
  1700. doapoly:
  1701.  
  1702.  move.w (a1)+,d7    ; sides to draw
  1703.  addq #2,a1        ; avoid holes
  1704.  move.w 12(a1,d7.w*4),pregour
  1705.  
  1706.  move.l #ONSCREENPTS,a3
  1707.  
  1708.  move.w (a1),d0
  1709.  move.w 4(a1),d1
  1710.  move.w 8(a1),d2
  1711.  move.w 2(a3,d0.w*4),d3
  1712.  move.w 2(a3,d1.w*4),d4
  1713.  move.w 2(a3,d2.w*4),d5
  1714.  move.w (a3,d0.w*4),d0
  1715.  move.w (a3,d1.w*4),d1
  1716.  move.w (a3,d2.w*4),d2
  1717.  
  1718.  sub.w d1,d0
  1719.  sub.w d1,d2
  1720.  sub.w d4,d3
  1721.  sub.w d4,d5
  1722.  muls d3,d2
  1723.  muls d5,d0
  1724.  sub.l d0,d2
  1725.  ble polybehind
  1726.  
  1727.  move.w #20000,d4    ; top
  1728.  move.w #-20000,d5    ; bottom
  1729.  move.l #UVCOORDS,a4
  1730.  
  1731.  move.l a1,a0
  1732.  
  1733. putinlines:
  1734.  move.w (a1),d0
  1735.  move.w 4(a1),d1
  1736.  
  1737.  moveq #0,d2
  1738.  move.b 2(a1),d2    ; one end U
  1739.  move.w d2,2(a4,d0.w*4)
  1740.  move.b 3(a1),d2    ; one end V
  1741.  move.w d2,(a4,d0.w*4)
  1742.  move.b 6(a1),d2    ; two end U
  1743.  move.w d2,2(a4,d1.w*4)
  1744.  move.b 7(a1),d2    ; two end V
  1745.  move.w d2,(a4,d1.w*4)
  1746.  
  1747.  move.w 2(a3,d0.w*4),d2    ; Z
  1748.  
  1749.  cmp.w d2,d4
  1750.  ble.s .oktop
  1751.  move.w d2,d4
  1752. .oktop
  1753.  cmp.w d2,d5
  1754.  bge.s .okbot
  1755.  move.w d2,d5
  1756. .okbot
  1757.  
  1758.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  1759.  jsr SIMPLECALCLINE
  1760.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  1761.  addq #4,a1
  1762.  dbra d7,putinlines
  1763.  addq #4,a1 
  1764.  
  1765.  move.w (a1)+,TEXTUREADD
  1766.  
  1767.  asr.w #2,d4
  1768.  asr.w #2,d5
  1769. ; add.w #128,d4
  1770. ; add.w #128,d5
  1771.  move.w d4,TOPLINE
  1772.  move.w d5,BOTLINE
  1773.   
  1774.  move.l #SHADOWPTS,a1
  1775.  move.w (a0),d0
  1776.  move.w 4(a0),d1
  1777.  move.w 8(a0),d2
  1778.  
  1779. CHECKVALS:
  1780.  
  1781.  muls #10,d0
  1782.  muls #10,d1
  1783.  muls #10,d2
  1784.  
  1785.  lea (a1,d0.w),a0
  1786.  lea (a1,d2.w),a2
  1787.  lea (a1,d1.w),a1
  1788.  
  1789.  move.l (a0),d3
  1790.  sub.l (a1),d3
  1791.  asr.l #8,d3
  1792.  asr.l #1,d3
  1793.  move.l 4(a0),d4
  1794.  sub.l 4(a1),d4
  1795.  asr.l #8,d4
  1796.  asr.l #1,d4
  1797.  move.w 8(a0),d5
  1798.  sub.w 8(a1),d5
  1799.  
  1800.  move.w d3,d6
  1801.  muls d6,d6
  1802.  move.w d4,d7
  1803.  muls d7,d7
  1804.  add.l d7,d6
  1805.  move.w d5,d7
  1806.  muls d7,d7
  1807.  add.l d7,d6
  1808.  move.l d6,d2
  1809.  jsr CALCSQROOT
  1810.  move.w d2,LEN1
  1811.  
  1812.  move.l (a2),d0
  1813.  sub.l (a1),d0
  1814.  asr.l #8,d0
  1815.  asr.l #1,d0
  1816.  move.l 4(a2),d1
  1817.  sub.l 4(a1),d1
  1818.  asr.l #8,d1
  1819.  asr.l #1,d1
  1820.  move.w 8(a2),d2
  1821.  sub.w 8(a1),d2
  1822.  
  1823.  muls d2,d3
  1824.  muls d0,d5
  1825.  sub.l d3,d5    ; length
  1826.  muls.l #$4c,d5
  1827.  
  1828.  muls d0,d0
  1829.  muls d1,d1
  1830.  muls d2,d2
  1831.  add.l d0,d1
  1832.  add.l d1,d2
  1833.  jsr CALCSQROOT
  1834.  
  1835.  muls LEN1,d2
  1836.  bgt.s .ok
  1837.  moveq #1,d2
  1838. .ok
  1839.  
  1840.  divs.l d2,d5
  1841.  
  1842.  add.l #16,d5
  1843.  
  1844.  tst.l d5
  1845.  ble.s .okbr
  1846.  moveq #0,d5
  1847. .okbr:
  1848.  add.w #$5c,d5
  1849.  bge.s .okbr2
  1850.  moveq #0,d5
  1851. .okbr2:
  1852.  
  1853.  move.w d5,d0
  1854.  
  1855.  asl.w #8,d5
  1856.  move.w d5,BRIGHTNESS+2
  1857.  
  1858.  sub.w #$5c,d0
  1859.  asr.w #1,d0
  1860.  add.w #$5c,d0
  1861.  asl.w #8,d0
  1862.  move.w d0,BRIGHTNESS
  1863.  
  1864.  
  1865. ***********************************************
  1866. * Draw the polygon (shadowed).
  1867.  
  1868.  move.l FASTBUFFER,a2
  1869.  move.l #LEFTUVS,a0
  1870.  move.w TOPLINE,d0
  1871.  move.w BOTLINE,d1
  1872.  sub.w d0,d1
  1873.  asl.w #4,d0
  1874.  add.w d0,a0
  1875.  muls #(320/16),d0
  1876.  add.l d0,a2    ; pointer to screen line.
  1877.  
  1878.  subq #1,d1
  1879.  blt NOPOLYGON
  1880.  
  1881.  tst.b Gouraud
  1882.  bne GOURPOLY
  1883.  
  1884. DOAHORLINE:
  1885.  swap d1
  1886.  
  1887.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1888.  move.w (a0)+,d7
  1889.  asr.w #2,d0
  1890.  asr.w #2,d7
  1891.  sub.w d7,d0
  1892.  bge.s .okflibble
  1893.  
  1894.  add.w #14,a0
  1895.  add.w #320,a2
  1896.  swap d1
  1897.  dbra d1,DOAHORLINE
  1898.  bra NOPOLYGON
  1899.  
  1900. .okflibble:
  1901.  
  1902.  move.l a2,-(a7)
  1903.  
  1904.  add.w d7,a2
  1905.  ext.l d0
  1906.  addq #1,d0
  1907.  
  1908.  move.l RIGHTUVS-LEFTUVS(a0),d7
  1909.  move.l (a0)+,d2 
  1910.  sub.l d2,d7
  1911.  divs.l d0,d7
  1912.  move.l d7,a1
  1913.  
  1914.  
  1915.  
  1916.  
  1917.  
  1918.  
  1919.  
  1920.  
  1921.  
  1922.  
  1923.  
  1924.  
  1925.  
  1926.  
  1927.  
  1928.  
  1929.  
  1930.  
  1931.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  1932.  move.l (a0)+,d3 
  1933.  
  1934.  
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941.  
  1942.  
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953.  sub.l d3,d7
  1954.  divs.l d0,d7
  1955.  move.l d7,a4
  1956.  
  1957.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1958.  move.w (a0)+,d4
  1959.  swap d7
  1960.  clr.w d7
  1961.  swap d4
  1962.  clr.w d4
  1963.  sub.l d4,d7
  1964.  divs.l d0,d7
  1965.  move.l d7,a5
  1966.  
  1967.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1968.  swap d7
  1969.  clr.w d7
  1970.  move.w (a0)+,d5
  1971.  swap d5
  1972.  clr.w d5
  1973.  sub.l d5,d7
  1974.  divs.l d0,d7
  1975.  move.l d7,a6
  1976.  
  1977.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1978.  swap d7
  1979.  clr.w d7
  1980.  move.w (a0)+,d6
  1981.  swap d6
  1982.  clr.w d6
  1983.  sub.l d6,d7
  1984.  divs.l d0,d7
  1985.  move.l d7,a3
  1986.  
  1987.  move.l a0,-(a7)
  1988.  move.l d1,-(a7)
  1989.  move.l #TEXTURES,a0
  1990.  move.w TEXTUREADD,d7
  1991.  bge.s .okaddtes3
  1992.  and.w #$7fff,d7
  1993.  add.l #65536*2,a0
  1994. .okaddtes3:
  1995.  ext.l d7
  1996.  add.l d7,d7
  1997.  add.l d7,a0
  1998.  move.w #0,d7
  1999.  
  2000.  move.l BRIGHTNESS,a6
  2001.  
  2002.  move.l a7,SAVESTACK
  2003.  move.l #SHADOWBUFFER,a7
  2004.  
  2005.  subq #1,d0
  2006.  
  2007. ; d0=xdist
  2008. ; d2=U    a1=DU
  2009. ; d3=V  a4=DV
  2010. ; d4=X  a5=DX
  2011. ; d5=Y  a6=DY
  2012. ; d6=Z  a3=DZ
  2013.  move.w HIGHPOLY,d5
  2014.  
  2015.  moveq #0,d1
  2016.  swap d6
  2017.  move.w d6,d1
  2018.  lsl.w #8,d1
  2019.  swap d4
  2020.  move.b d4,d1
  2021.  swap d4
  2022.  swap d6
  2023.  
  2024.  moveq #0,d7
  2025.  move.b (a7,d1.l),d7
  2026.  cmp.w d7,d5
  2027.  ble INTHELIGHT
  2028.  bra.s INTHEDARK
  2029.  
  2030. PENUMBRA:
  2031.  moveq #0,d1
  2032.  swap d6
  2033.  move.w d6,d1
  2034.  lsl.w #8,d1
  2035.  swap d4
  2036.  move.b d4,d1
  2037.  swap d4
  2038.  swap d6
  2039.  add.l a5,d4
  2040.  add.l a3,d6
  2041.  
  2042.      moveq #0,d7
  2043.  move.b (a7,d1.l),d7
  2044.  cmp.w d7,d5
  2045.  ble INTOLIGHT
  2046.  bra.s INTODARK
  2047.  
  2048.  
  2049. INTHEDARK:
  2050.  moveq #0,d1
  2051.  swap d6
  2052.  move.w d6,d1
  2053.  lsl.w #8,d1
  2054.  swap d4
  2055.  move.b d4,d1
  2056.  swap d4
  2057.  swap d6
  2058.  add.l a5,d4
  2059.  add.l a3,d6
  2060.  
  2061.  moveq #0,d7
  2062.  move.b (a7,d1.l),d7
  2063.  cmp.w d7,d5
  2064.  ble.s INTOPENUM
  2065. INTODARK:
  2066.  move.w #$5c00,d7
  2067.  swap d2
  2068.  move.w d2,d1
  2069.  asl.w #8,d1
  2070.  swap d3
  2071.  move.b d3,d1
  2072.  swap d2
  2073.  swap d3
  2074.  add.l a1,d2
  2075.  add.l a4,d3
  2076.  
  2077. ; move.b (a0,d1.w*4),d7
  2078. ; beq.s .noplottt
  2079.  
  2080.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2081.  dbra d0,INTHEDARK
  2082.  bra.s PASTAC 
  2083.  
  2084. .noplottt
  2085.  addq #1,a2
  2086.  dbra d0,INTHEDARK
  2087.  bra.s PASTAC
  2088.  
  2089. INTOPENUM:
  2090.  move.l a6,d7
  2091.  swap d7
  2092.  swap d2
  2093.  move.w d2,d1
  2094.  asl.w #8,d1
  2095.  swap d3
  2096.  move.b d3,d1
  2097.  swap d2
  2098.  swap d3
  2099.  add.l a1,d2
  2100.  add.l a4,d3
  2101.  
  2102. ; move.b (a0,d1.w*4),d7
  2103. ; beq.s .noplottt
  2104.  
  2105.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2106.  dbra d0,PENUMBRA
  2107.  bra.s PASTAC 
  2108.  
  2109. .noplottt
  2110.  addq #1,a2
  2111.  dbra d0,PENUMBRA
  2112.  bra.s PASTAC
  2113.  
  2114. INTHELIGHT:
  2115.  
  2116.  moveq #0,d1
  2117.  swap d6
  2118.  move.w d6,d1
  2119.  lsl.w #8,d1
  2120.  swap d4
  2121.  move.b d4,d1
  2122.  swap d4
  2123.  swap d6
  2124.  add.l a5,d4
  2125.  add.l a3,d6
  2126.  
  2127.  moveq #0,d7
  2128.  move.b (a7,d1.l),d7
  2129.  cmp.w d7,d5
  2130.  bgt.s INTOPENUM
  2131. INTOLIGHT:
  2132.  move.w a6,d7
  2133.  swap d2
  2134.  move.w d2,d1
  2135.  asl.w #8,d1
  2136.  swap d3
  2137.  move.b d3,d1
  2138.  swap d2
  2139.  swap d3
  2140.  add.l a1,d2
  2141.  add.l a4,d3
  2142.  
  2143. ; move.b (a0,d1.w*4),d7
  2144. ; beq.s .noplottt
  2145.  
  2146.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2147.  dbra d0,INTHELIGHT
  2148.  bra.s PASTAC 
  2149.  
  2150. .noplottt:
  2151.  addq #1,a2
  2152.  dbra d0,INTHELIGHT
  2153.  
  2154. PASTAC
  2155.  
  2156.  move.l SAVESTACK,a7
  2157.  
  2158.  move.l (a7)+,d1
  2159.  move.l (a7)+,a0
  2160.  move.l (a7)+,a2
  2161.  
  2162. .noline:
  2163.  add.w #320,a2
  2164.  
  2165.  swap d1
  2166.  dbra d1,DOAHORLINE
  2167.  
  2168.  
  2169.  bra NOPOLYGON
  2170.  
  2171. TEXTUREPAL: incbin "ab3:includes/shadow.pal"
  2172.  
  2173. SAVESTACK: dc.l 0
  2174. HIGHPOLY: dc.w 0
  2175. LEN1: dc.w 0
  2176. BRIGHTNESS: dc.l 0
  2177. TRANSTEXT: dc.w 0
  2178. AANG: dc.w 0
  2179. BANG: dc.w 0
  2180. CANG: dc.w 0
  2181. DANG: dc.w 0
  2182.  
  2183. NOPOLYGON:
  2184. polybehind:
  2185.  rts
  2186.  
  2187.  
  2188. GOURPOLY: 
  2189.  
  2190. DOAHORLINEGOUR:
  2191.  swap d1
  2192.  
  2193.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2194.  move.w (a0)+,d7
  2195.  asr.w #2,d0
  2196.  asr.w #2,d7
  2197.  sub.w d7,d0
  2198.  bge.s .okflibble
  2199.  
  2200.  add.w #14,a0
  2201.  add.w #320,a2
  2202.  swap d1
  2203.  dbra d1,DOAHORLINEGOUR
  2204.  bra NOPOLYGON
  2205.  
  2206. .okflibble:
  2207.  
  2208.  move.l a2,-(a7)
  2209.  
  2210.  add.w d7,a2
  2211.  ext.l d0
  2212.  addq #1,d0
  2213.  
  2214.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2215.  move.b (a0),d2
  2216.  ext.w d3
  2217.  ext.w d2
  2218.  
  2219.  tst.w d2
  2220.  blt .firsttowards
  2221.  
  2222.  bgt .firstaway
  2223.  tst.w d3
  2224.  blt .bothtowards
  2225.  bra .bothaway
  2226.  
  2227. .firsttowards:
  2228.  tst.w d3
  2229.  ble .bothtowards
  2230.  
  2231. ; First is towards and second away...
  2232.  
  2233.  move.w d0,d7    ; total length
  2234.  move.w d0,d6
  2235.  neg.w d2
  2236.  add.w d2,d3
  2237.  muls d2,d6
  2238.  divs d3,d6    ; length of first bit
  2239.  sub.w d6,d7    ; length of second bit
  2240.  move.w d6,FIRSTLEN
  2241.  move.w d7,LASTLEN
  2242.  
  2243.  tst.w FIRSTLEN
  2244.  beq .bothaway
  2245.  tst.w LASTLEN
  2246.  beq .bothtowards
  2247.  
  2248.  moveq #0,d2
  2249.  moveq #0,d3
  2250.  moveq #0,d4
  2251.  moveq #0,d5
  2252.  move.b 6(a0),d2
  2253.  move.b 7(a0),d3
  2254.  
  2255.  move.w d2,FIRSTU
  2256.  move.w d3,FIRSTV
  2257.  
  2258.  move.w d2,d4
  2259.  move.w d3,d5
  2260.  sub.w #128,d2
  2261.  sub.w #128,d3
  2262.  muls d2,d2
  2263.  muls d3,d3
  2264.  add.l d3,d2
  2265.  jsr CALCSQROOT
  2266.  
  2267.  tst.w d2
  2268.  beq.s .nochng
  2269.  
  2270.  sub.w #128,d4
  2271.  sub.w #128,d5
  2272.  muls #127,d4
  2273.  muls #127,d5
  2274.  divs d2,d4
  2275.  divs d2,d5
  2276.  add.w #128,d4
  2277.  add.w #128,d5
  2278.  
  2279. .nochng:
  2280.  
  2281.  move.w d4,MIDU
  2282.  move.w d5,MIDV
  2283.  
  2284.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2285.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2286.  move.w d4,SECU
  2287.  move.w d5,SECV
  2288.  
  2289.  move.w d4,d2
  2290.  move.w d5,d3
  2291.  
  2292.  sub.w #128,d2
  2293.  sub.w #128,d3
  2294.  muls d2,d2
  2295.  muls d3,d3
  2296.  add.l d3,d2
  2297.  jsr CALCSQROOT
  2298.  
  2299.  tst.w d2
  2300.  beq.s .nochng2
  2301.  
  2302.  sub.w #128,d4
  2303.  sub.w #128,d5
  2304.  muls #127,d4
  2305.  muls #127,d5
  2306.  divs d2,d4
  2307.  divs d2,d5
  2308.  add.w #128,d4
  2309.  add.w #128,d5
  2310.  
  2311. .nochng2:
  2312.  
  2313.  add.w MIDU,d4
  2314.  add.w MIDV,d5
  2315.  asr.w #1,d4
  2316.  asr.w #1,d5
  2317.  move.w d4,MIDU
  2318.  move.w d5,MIDV 
  2319.  
  2320.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2321.  move.l (a0)+,d2 
  2322.  
  2323.  and.l #$ffffff,d2
  2324.  and.l #$ffffff,d7
  2325.  
  2326.  moveq #0,d3
  2327.  moveq #0,d5
  2328.  move.w d2,d3
  2329.  move.w d7,d5
  2330.  swap d3
  2331.  swap d5
  2332.  sub.l d3,d5
  2333.  divs.l d0,d5
  2334.  asr.l #8,d5
  2335.  move.w d5,RIGHTBRIGHT
  2336.  asr.l #8,d3
  2337.  move.w d3,LEFTBRIGHT
  2338.  
  2339.  clr.w d2
  2340.  clr.w d7
  2341.  sub.l d2,d7
  2342.  asl.l #8,d2
  2343.  divs.l d0,d7
  2344.  asl.l #8,d7
  2345.  
  2346.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2347.  move.l (a0)+,d3
  2348.  
  2349.  moveq #0,d4
  2350.  moveq #0,d5
  2351.  
  2352. ; move.w d6,d5
  2353. ; move.w d3,d4
  2354. ; move.b #0,d4
  2355. ; move.b #0,d5
  2356.  
  2357.  move.w FIRSTU,d4
  2358.  move.w MIDU,d5
  2359.  lsl.l #8,d4
  2360.  lsl.l #8,d5
  2361.  
  2362.  sub.l d4,d5
  2363.  divs.l FIRSTLEN-2,d5
  2364.  
  2365.  move.w d4,d2
  2366.  move.w d5,d7
  2367.  move.l d7,a1
  2368.  moveq #0,d4
  2369.  moveq #0,d5
  2370.  
  2371. ; move.b d6,d5
  2372. ; move.b d3,d4
  2373.  
  2374. ; swap d5
  2375. ; swap d4
  2376.  
  2377.  move.w FIRSTV,d4
  2378.  move.w MIDV,d5
  2379.  swap d4
  2380.  swap d5
  2381.  
  2382.  sub.l d4,d5
  2383.  divs.l FIRSTLEN-2,d5
  2384.  
  2385.  move.l d5,a3
  2386.  move.l d4,d5
  2387.   
  2388.  clr.w d3
  2389.  clr.w d6
  2390.  sub.l d3,d6
  2391.  divs.l d0,d6
  2392.  move.l d6,a4
  2393.  
  2394.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2395.  move.w (a0)+,d4
  2396.  swap d7
  2397.  clr.w d7
  2398.  swap d4
  2399.  clr.w d4
  2400.  sub.l d4,d7
  2401.  divs.l d0,d7
  2402.  move.l d7,a5
  2403.  
  2404. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2405. ; swap d7
  2406. ; clr.w d7
  2407.  move.w (a0)+,d7
  2408. ; swap d5
  2409. ; clr.w d5
  2410. ; sub.l d5,d7
  2411. ; divs.l d0,d7
  2412. ; move.l d7,a6
  2413.  
  2414.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2415.  swap d7
  2416.  clr.w d7
  2417.  move.w (a0)+,d6
  2418.  swap d6
  2419.  clr.w d6
  2420.  sub.l d6,d7
  2421.  divs.l d0,d7
  2422.  
  2423.  lsl.l #8,d6
  2424.  lsl.l #8,d7
  2425.  
  2426.  move.w RIGHTBRIGHT,d7
  2427.  move.l d7,a6
  2428.  
  2429.  move.l a0,-(a7)
  2430.  move.l d1,-(a7)
  2431.  move.l #TEXTURES,a0
  2432.  move.w TEXTUREADD,d7
  2433.  bge.s .okaddtes3
  2434.  and.w #$7fff,d7
  2435.  add.l #65536*2,a0
  2436. .okaddtes3:
  2437.  ext.l d7
  2438.  add.l d7,d7
  2439.  add.l d7,a0
  2440.  move.w #0,d7
  2441.  
  2442.  move.w LEFTBRIGHT,d6
  2443.  
  2444.  subq #1,d0
  2445.  swap d0
  2446.  move.w HIGHPOLY,d0
  2447.  swap d0
  2448.  
  2449.  
  2450. ; d0=xdist
  2451. ; d2=U    a1=DU
  2452. ; d3=V  a4=DV
  2453. ; d4=X  a5=DX
  2454. ; d5=Y  a6=DY
  2455. ; d6=Z  a3=DZ
  2456.  
  2457. ; d0= polynum : polynum : counter : counter
  2458. ; d1= scratch : scratch : scratch : scratch
  2459. ; d2= u : uacc : sv : svacc
  2460. ; d3= v : v : vacc : vacc
  2461. ; d4= x : x : xacc : xacc
  2462. ; d5= su : su : suacc : suacc
  2463. ; d6= z : zacc : bright : brightacc
  2464. ; d7= scratch : scratch : scratch : scratch
  2465.  
  2466. ; a0= textures
  2467. ; a1= uspeed : uspeed : suspeed : suspeed
  2468. ; a2= screen pointer
  2469. ; a3= svspeed : svspeed : svspeed : svspeed
  2470. ; a4= vspeed : vspeed : vspeed : vspeed
  2471. ; a5= xspeed : xspeed : xspeed : xspeed
  2472. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2473. ; a7= shadowmap pointer
  2474.  
  2475.  
  2476.  move.w FIRSTLEN,d0
  2477.  sub.w #1,d0
  2478.  bsr STARTLINE
  2479.  
  2480.  move.l #0,d5
  2481.  move.w #0,d2
  2482.  move.l #0,a3
  2483.  
  2484.  move.w LASTLEN,d0
  2485.  sub.w #1,d0
  2486.  
  2487.  bsr STARTLINE
  2488.  
  2489.  
  2490.  move.l (a7)+,d1
  2491.  move.l (a7)+,a0
  2492.  move.l (a7)+,a2
  2493.  
  2494.  bra .noline
  2495.  
  2496. .firstaway:
  2497.  tst.w d3
  2498.  bge .bothaway
  2499.  
  2500.  
  2501. ; first is away and second is towards...
  2502.  
  2503. ; this really isn't going to work...
  2504.  
  2505.  move.w d0,d7    ; total length
  2506.  move.w d0,d6
  2507.  neg.w d3
  2508.  add.w d2,d3
  2509.  muls d2,d6
  2510.  divs d3,d6    ; length of first bit
  2511.  sub.w d6,d7    ; length of second bit
  2512.  move.w d6,FIRSTLEN
  2513.  move.w d7,LASTLEN
  2514.  
  2515.  tst.w FIRSTLEN
  2516.  beq .bothaway
  2517.  tst.w LASTLEN
  2518.  beq .bothtowards
  2519.  
  2520.  moveq #0,d2
  2521.  moveq #0,d3
  2522.  moveq #0,d4
  2523.  moveq #0,d5
  2524.  move.b 6(a0),d2
  2525.  move.b 7(a0),d3
  2526.  
  2527.  move.w d2,FIRSTU
  2528.  move.w d3,FIRSTV
  2529.  
  2530.  move.w d2,d4
  2531.  move.w d3,d5
  2532.  sub.w #128,d2
  2533.  sub.w #128,d3
  2534.  muls d2,d2
  2535.  muls d3,d3
  2536.  add.l d3,d2
  2537.  jsr CALCSQROOT
  2538.  
  2539.  tst.w d2
  2540.  beq.s .nochng22
  2541.  
  2542.  sub.w #128,d4
  2543.  sub.w #128,d5
  2544.  muls #127,d4
  2545.  muls #127,d5
  2546.  divs d2,d4
  2547.  divs d2,d5
  2548.  add.w #128,d4
  2549.  add.w #128,d5
  2550.  
  2551. .nochng22:
  2552.  
  2553.  move.w d4,MIDU
  2554.  move.w d5,MIDV
  2555.  
  2556.  moveq #0,d4
  2557.  moveq #0,d5
  2558.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2559.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2560.  move.w d4,SECU
  2561.  move.w d5,SECV
  2562.  
  2563.  move.w d4,d2
  2564.  move.w d5,d3
  2565.  
  2566.  sub.w #128,d2
  2567.  sub.w #128,d3
  2568.  muls d2,d2
  2569.  muls d3,d3
  2570.  add.l d3,d2
  2571.  jsr CALCSQROOT
  2572.  
  2573.  tst.w d2
  2574.  beq.s .nochng222
  2575.  
  2576.  sub.w #128,d4
  2577.  sub.w #128,d5
  2578.  muls #127,d4
  2579.  muls #127,d5
  2580.  divs d2,d4
  2581.  divs d2,d5
  2582.  add.w #128,d4
  2583.  add.w #128,d5
  2584.  
  2585. .nochng222:
  2586.  
  2587.  add.w MIDU,d4
  2588.  add.w MIDV,d5
  2589.  asr.w #1,d4
  2590.  asr.w #1,d5
  2591.  move.w d4,MIDU
  2592.  move.w d5,MIDV
  2593.  
  2594.  
  2595.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2596.  move.l (a0)+,d2 
  2597.  
  2598.  and.l #$ffffff,d2
  2599.  and.l #$ffffff,d7
  2600.  
  2601.  moveq #0,d3
  2602.  moveq #0,d5
  2603.  move.w d2,d3
  2604.  move.w d7,d5
  2605.  swap d3
  2606.  swap d5
  2607.  sub.l d3,d5
  2608.  divs.l d0,d5
  2609.  asr.l #8,d5
  2610.  move.w d5,RIGHTBRIGHT
  2611.  asr.l #8,d3
  2612.  move.w d3,LEFTBRIGHT
  2613.  
  2614.  clr.w d2
  2615.  clr.w d7
  2616.  sub.l d2,d7
  2617.  asl.l #8,d2
  2618.  divs.l d0,d7
  2619.  asl.l #8,d7
  2620.  
  2621.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2622.  move.l (a0)+,d3
  2623.  
  2624.  moveq #0,d4
  2625.  moveq #0,d5
  2626.  
  2627.  move.w MIDU,d4
  2628.  move.w SECU,d5
  2629.  lsl.w #8,d4
  2630.  lsl.w #8,d5
  2631.  
  2632. ; move.w d6,d5
  2633. ; move.w d3,d4
  2634. ; move.b #0,d4
  2635. ; move.b #0,d5
  2636.  
  2637.  sub.l d4,d5
  2638.  divs.l LASTLEN-2,d5
  2639.  
  2640.  move.w d4,d2
  2641.  move.w d5,d7
  2642.  move.l d7,a1
  2643.  moveq #0,d4
  2644.  moveq #0,d5
  2645.  
  2646.  move.w MIDV,d4
  2647.  move.w SECV,d5
  2648.  
  2649.  swap d5
  2650.  swap d4
  2651.  
  2652.  sub.l d4,d5
  2653.  divs.l LASTLEN-2,d5
  2654.  
  2655.  move.l d5,a3
  2656.  move.l d4,d5
  2657.  
  2658.  clr.w d3
  2659.  clr.w d6
  2660.  sub.l d3,d6
  2661.  divs.l d0,d6
  2662.  move.l d6,a4
  2663.  
  2664.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2665.  move.w (a0)+,d4
  2666.  swap d7
  2667.  clr.w d7
  2668.  swap d4
  2669.  clr.w d4
  2670.  sub.l d4,d7
  2671.  divs.l d0,d7
  2672.  move.l d7,a5
  2673.  
  2674. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2675. ; swap d7
  2676. ; clr.w d7
  2677.  move.w (a0)+,d7
  2678. ; swap d5
  2679. ; clr.w d5
  2680. ; sub.l d5,d7
  2681. ; divs.l d0,d7
  2682. ; move.l d7,a6
  2683.  
  2684.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2685.  swap d7
  2686.  clr.w d7
  2687.  move.w (a0)+,d6
  2688.  swap d6
  2689.  clr.w d6
  2690.  sub.l d6,d7
  2691.  divs.l d0,d7
  2692.  
  2693.  lsl.l #8,d6
  2694.  lsl.l #8,d7
  2695.  
  2696.  move.w RIGHTBRIGHT,d7
  2697.  move.l d7,a6
  2698.  
  2699.  move.l a0,-(a7)
  2700.  move.l d1,-(a7)
  2701.  move.l #TEXTURES,a0
  2702.  move.w TEXTUREADD,d7
  2703.  bge.s .okaddtes4
  2704.  and.w #$7fff,d7
  2705.  add.l #65536*2,a0
  2706. .okaddtes4:
  2707.  ext.l d7
  2708.  add.l d7,d7
  2709.  add.l d7,a0
  2710.  move.w #0,d7
  2711.  
  2712.  move.w LEFTBRIGHT,d6
  2713.  
  2714.  
  2715.  subq #1,d0
  2716.  swap d0
  2717.  move.w HIGHPOLY,d0
  2718.  swap d0
  2719.  
  2720.  
  2721. ; d0=xdist
  2722. ; d2=U    a1=DU
  2723. ; d3=V  a4=DV
  2724. ; d4=X  a5=DX
  2725. ; d5=Y  a6=DY
  2726. ; d6=Z  a3=DZ
  2727.  
  2728. ; d0= polynum : polynum : counter : counter
  2729. ; d1= scratch : scratch : scratch : scratch
  2730. ; d2= u : uacc : sv : svacc
  2731. ; d3= v : v : vacc : vacc
  2732. ; d4= x : x : xacc : xacc
  2733. ; d5= su : su : suacc : suacc
  2734. ; d6= z : zacc : bright : brightacc
  2735. ; d7= scratch : scratch : scratch : scratch
  2736.  
  2737. ; a0= textures
  2738. ; a1= uspeed : uspeed : suspeed : suspeed
  2739. ; a2= screen pointer
  2740. ; a3= svspeed : svspeed : svspeed : svspeed
  2741. ; a4= vspeed : vspeed : vspeed : vspeed
  2742. ; a5= xspeed : xspeed : xspeed : xspeed
  2743. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2744. ; a7= shadowmap pointer
  2745.  
  2746.  move.w d2,-(a7)
  2747.  move.l d5,-(a7)
  2748.  move.l a3,-(a7)
  2749.  
  2750.  move.w #0,d2
  2751.  move.l #0,d5
  2752.  move.l #0,a3
  2753.  
  2754.  move.w FIRSTLEN,d0
  2755.  subq #1,d0
  2756.  bsr STARTLINE
  2757.  
  2758.  
  2759.  move.l (a7)+,a3
  2760.  move.l (a7)+,d5
  2761.  move.w (a7)+,d2
  2762.  
  2763.  move.w LASTLEN,d0
  2764.  subq #1,d0
  2765.  
  2766.  bsr STARTLINE
  2767.  
  2768.  
  2769.  move.l (a7)+,d1
  2770.  move.l (a7)+,a0
  2771.  move.l (a7)+,a2
  2772.  
  2773.  bra .noline
  2774.  
  2775.  
  2776. .bothaway:
  2777.  
  2778.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  2779.  move.w #0,6(a0)
  2780.  
  2781. .bothtowards:
  2782.  
  2783.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2784.  move.l (a0)+,d2 
  2785.  
  2786.  and.l #$ffffff,d2
  2787.  and.l #$ffffff,d7
  2788.  
  2789.  moveq #0,d3
  2790.  moveq #0,d5
  2791.  move.w d2,d3
  2792.  move.w d7,d5
  2793.  swap d3
  2794.  swap d5
  2795.  sub.l d3,d5
  2796.  divs.l d0,d5
  2797.  asr.l #8,d5
  2798.  move.w d5,RIGHTBRIGHT
  2799.  asr.l #8,d3
  2800.  move.w d3,LEFTBRIGHT
  2801.  
  2802.  clr.w d2
  2803.  clr.w d7
  2804.  sub.l d2,d7
  2805.  asl.l #8,d2
  2806.  divs.l d0,d7
  2807.  asl.l #8,d7
  2808.  
  2809.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2810.  move.l (a0)+,d3
  2811.  
  2812.  moveq #0,d4
  2813.  moveq #0,d5
  2814.  
  2815.  move.w d6,d5
  2816.  move.w d3,d4
  2817.  move.b #0,d4
  2818.  move.b #0,d5
  2819.  
  2820.  sub.l d4,d5
  2821.  divs.l d0,d5
  2822.  
  2823.  move.w d4,d2
  2824.  move.w d5,d7
  2825.  move.l d7,a1
  2826.  moveq #0,d4
  2827.  moveq #0,d5
  2828.  
  2829.  move.b d6,d5
  2830.  move.b d3,d4
  2831.  
  2832.  swap d5
  2833.  swap d4
  2834.  
  2835.  sub.l d4,d5
  2836.  divs.l d0,d5
  2837.  
  2838.  move.l d5,a3
  2839.  move.l d4,d5
  2840.  
  2841.   
  2842.  clr.w d3
  2843.  clr.w d6
  2844.  sub.l d3,d6
  2845.  divs.l d0,d6
  2846.  move.l d6,a4
  2847.  
  2848.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2849.  move.w (a0)+,d4
  2850.  swap d7
  2851.  clr.w d7
  2852.  swap d4
  2853.  clr.w d4
  2854.  sub.l d4,d7
  2855.  divs.l d0,d7
  2856.  move.l d7,a5
  2857.  
  2858. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2859. ; swap d7
  2860. ; clr.w d7
  2861.  move.w (a0)+,d7
  2862. ; swap d5
  2863. ; clr.w d5
  2864. ; sub.l d5,d7
  2865. ; divs.l d0,d7
  2866. ; move.l d7,a6
  2867.  
  2868.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2869.  swap d7
  2870.  clr.w d7
  2871.  move.w (a0)+,d6
  2872.  swap d6
  2873.  clr.w d6
  2874.  sub.l d6,d7
  2875.  divs.l d0,d7
  2876.  
  2877.  lsl.l #8,d6
  2878.  lsl.l #8,d7
  2879.  
  2880.  move.w RIGHTBRIGHT,d7
  2881.  move.l d7,a6
  2882.  
  2883.  move.l a0,-(a7)
  2884.  move.l d1,-(a7)
  2885.  move.l #TEXTURES,a0
  2886.  move.w TEXTUREADD,d7
  2887.  bge.s .okaddtes5
  2888.  and.w #$7fff,d7
  2889.  add.l #65536*2,a0
  2890. .okaddtes5:
  2891.  ext.l d7
  2892.  add.l d7,d7
  2893.  add.l d7,a0
  2894.  move.w #0,d7
  2895.  
  2896.  move.w LEFTBRIGHT,d6
  2897.  
  2898.  subq #1,d0
  2899.  swap d0
  2900.  move.w HIGHPOLY,d0
  2901.  swap d0
  2902.  
  2903.  
  2904. ; d0=xdist
  2905. ; d2=U    a1=DU
  2906. ; d3=V  a4=DV
  2907. ; d4=X  a5=DX
  2908. ; d5=Y  a6=DY
  2909. ; d6=Z  a3=DZ
  2910.  
  2911. ; d0= polynum : polynum : counter : counter
  2912. ; d1= scratch : scratch : scratch : scratch
  2913. ; d2= u : uacc : sv : svacc
  2914. ; d3= v : v : vacc : vacc
  2915. ; d4= x : x : xacc : xacc
  2916. ; d5= su : su : suacc : suacc
  2917. ; d6= z : zacc : bright : brightacc
  2918. ; d7= scratch : scratch : scratch : scratch
  2919.  
  2920. ; a0= textures
  2921. ; a1= uspeed : uspeed : suspeed : suspeed
  2922. ; a2= screen pointer
  2923. ; a3= svspeed : svspeed : svspeed : svspeed
  2924. ; a4= vspeed : vspeed : vspeed : vspeed
  2925. ; a5= xspeed : xspeed : xspeed : xspeed
  2926. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2927. ; a7= shadowmap pointer
  2928.  
  2929.  bsr STARTLINE
  2930.  
  2931.  move.l (a7)+,d1
  2932.  move.l (a7)+,a0
  2933.  move.l (a7)+,a2
  2934.  
  2935. .noline:
  2936.  add.w #320,a2
  2937.  
  2938.  swap d1
  2939.  dbra d1,DOAHORLINEGOUR
  2940.  
  2941.  bra NOPOLYGON
  2942.  
  2943.  
  2944.  
  2945.  
  2946.  
  2947. *******************************
  2948. STARTLINE:
  2949.  
  2950.  move.l a7,SAVESTACK
  2951.  move.l #SHADOWBUFFER,a7
  2952.  
  2953.  moveq #0,d1
  2954.  swap d6
  2955.  move.w d6,d1
  2956.  swap d4
  2957.  move.b d4,d1
  2958.  swap d4
  2959.  swap d6
  2960.  
  2961.  swap d0
  2962.  moveq #0,d7
  2963.  move.b (a7,d1.l),d7
  2964.  cmp.w d7,d0
  2965.  ble .startlight
  2966.  swap d0
  2967.  bra INTHEDARKGOUR
  2968. .startlight:
  2969.  swap d0
  2970.  bra INTHELIGHTGOUR 
  2971. .startdark:
  2972. ***********************************
  2973.  
  2974.  
  2975.  
  2976. PENUMBRAGOUR:
  2977.  moveq #0,d1
  2978.  swap d6
  2979.  move.w d6,d1
  2980.  swap d4
  2981.  move.b d4,d1
  2982.  swap d4
  2983.  swap d6
  2984.  add.l a5,d4
  2985.  add.l a6,d6
  2986.  add.l a3,d5
  2987.  
  2988.  swap d0
  2989.  moveq #0,d7
  2990.  move.b (a7,d1.l),d7
  2991.  cmp.w d7,d0
  2992.  ble INTOLIGHTGOUR
  2993.  bra.s INTODARKGOUR
  2994.  
  2995. INTHEDARKGOUR:
  2996.  moveq #0,d1
  2997.  swap d6
  2998.  move.w d6,d1
  2999.  swap d4
  3000.  move.b d4,d1
  3001.  swap d4
  3002.  swap d6
  3003.  add.l a5,d4
  3004.  add.l a6,d6
  3005.  add.l a3,d5
  3006.  
  3007.  swap d0
  3008.  moveq #0,d7
  3009.  move.b (a7,d1.l),d7
  3010.  cmp.w d7,d0
  3011.  ble.s INTOPENUMGOUR
  3012. INTODARKGOUR:
  3013.  swap d0
  3014.  move.w #$5c00,d7
  3015.  swap d2
  3016.  move.w d2,d1
  3017.  swap d3
  3018.  move.b d3,d1
  3019.  swap d2
  3020.  swap d3
  3021.  add.l a1,d2
  3022.  add.l a4,d3
  3023.  
  3024.  move.b 1(a0,d1.w*8),d7
  3025.  bra DARKplottt
  3026.  
  3027. .noplottt
  3028.  addq #1,a2
  3029.  dbra d0,INTHEDARKGOUR
  3030.  bra DONEDONEBUM
  3031.  
  3032. INTOPENUMGOUR:
  3033.  swap d0
  3034.  move.w d6,d7
  3035.  
  3036.  sub.w #$5c00,d7
  3037.  asr.w #1,d7
  3038.  add.w #$5c00,d7
  3039.  
  3040.  swap d2
  3041.  move.w d2,d1
  3042.  swap d3
  3043.  move.b d3,d1
  3044.  swap d2
  3045.  swap d3
  3046.  add.l a1,d2
  3047.  add.l a4,d3
  3048.  
  3049.  move.b 1(a0,d1.w*8),d7
  3050.  bra.s PENUMplottt
  3051.  
  3052. .noplottt
  3053.  addq #1,a2
  3054.  dbra d0,PENUMBRAGOUR
  3055.  bra DONEDONEBUM
  3056.  
  3057.  
  3058. INTHELIGHTGOUR:
  3059.  
  3060.  moveq #0,d1
  3061.  swap d6
  3062.  move.w d6,d1
  3063.  swap d4
  3064.  move.b d4,d1
  3065.  swap d4
  3066.  swap d6
  3067.  add.l a5,d4
  3068.  add.l a6,d6
  3069.  add.l a3,d5
  3070.  
  3071.  swap d0
  3072.  moveq #0,d7
  3073.  move.b (a7,d1.l),d7
  3074.  cmp.w d7,d0
  3075.  bgt.s INTOPENUMGOUR
  3076. INTOLIGHTGOUR:
  3077.  swap d0
  3078.  move.w d6,d7
  3079.  swap d7
  3080.  swap d2
  3081.  move.w d2,d1
  3082.  swap d3
  3083.  move.b d3,d1
  3084.  swap d2
  3085.  swap d3
  3086.  add.l a1,d2
  3087.  add.l a4,d3
  3088.   
  3089.  move.w (a0,d1.w*8),d7
  3090.  bra.s LIGHTPLOTT
  3091. .noplottt:
  3092.  addq #1,a2
  3093.  dbra d0,INTHELIGHTGOUR
  3094. FLIBBLEY:
  3095.  bra DONEDONEBUM
  3096.  
  3097. PENUMplottt
  3098.  move.b GOURPAL(pc,d7.w),(a2)+
  3099.  dbra d0,PENUMBRAGOUR
  3100.  bra DONEDONEBUM
  3101.  
  3102. DARKplottt
  3103.  move.b GOURPAL(pc,d7.w),(a2)+
  3104.  dbra d0,INTHEDARKGOUR
  3105.  bra.s FLIBBLEY
  3106.  
  3107. LIGHTPLOTT:
  3108.  move.l #65536,d1
  3109.  move.w d2,d1
  3110.  swap d5
  3111.  move.b d5,d1
  3112.  swap d5
  3113.  
  3114.  move.b (a7,d1.l),d1
  3115.  lsl.w #8,d1
  3116.  add.w d7,d1
  3117.  swap d7
  3118.  move.b d1,d7
  3119.  move.b GOURPAL(pc,d7.w),d1
  3120.  move.b GOURPAL(pc,d1.w),(a2)+
  3121.  dbra d0,INTHELIGHTGOUR
  3122.  bra.s FLIBBLEY
  3123.  
  3124.  
  3125. GOURPAL: incbin "ab3:includes/shadow.pal"
  3126.  
  3127. DONEDONEBUM:
  3128.  move.l SAVESTACK,a7
  3129.  rts
  3130.  
  3131.  
  3132.  
  3133. LEFTSHINEV: dc.l 0
  3134. RIGHTSHINEV: dc.l 0
  3135. LEFTSHINEU: dc.l 0
  3136. RIGHTSHINEU: dc.l 0
  3137.  
  3138. TOPPTR: dc.l 0
  3139. TOPPTNUM: dc.w 0
  3140. BOTPTNUM: dc.w 0
  3141. LEFTBRIGHT: dc.w 0
  3142. RIGHTBRIGHT: dc.l 0
  3143. LEFTSPEC: dc.w 0
  3144. RIGHTSPEC: dc.w 0
  3145.  
  3146. ***********************************************
  3147.     
  3148. SIMPLECALCLINE:
  3149.  move.l #ONSCREENPTS,a1
  3150.  
  3151.  move.w 2(a1,d0.w*4),d2        ;fy
  3152.  move.w 2(a1,d1.w*4),d7        ;sy
  3153.  
  3154.  move.l #RIGHTUVS,a3
  3155.  asr.w #2,d2
  3156.  asr.w #2,d7
  3157.  cmp.w d2,d7 
  3158.  beq .noline
  3159.  
  3160.  bgt.s .lineonright
  3161. .lineonleft:
  3162.  move.l #LEFTUVS,a3
  3163.  exg d0,d1
  3164.  exg d2,d7
  3165.  
  3166. .lineonright:
  3167.  move.w d0,TOPPTNUM
  3168.  move.w d1,BOTPTNUM
  3169.  
  3170.  sub.w d2,d7
  3171.  asl.w #4,d2
  3172.  add.w d2,a3
  3173.  move.l a3,TOPPTR
  3174.  
  3175.  move.w d7,YDIFF
  3176.  
  3177.  move.w (a1,d0.w*4),d3        ;fx
  3178.  move.w (a1,d1.w*4),d7        ;sx
  3179.  
  3180.  sub.w d3,d7
  3181.  swap d3
  3182.  swap d7
  3183.  clr.w d3
  3184.  clr.w d7
  3185.  divs.l YDIFF-2,d7
  3186.  move.l d7,a0    ; dx
  3187.  
  3188.  move.l #UVCOORDS,a2
  3189.  move.l #SHADOWPTS,a1
  3190.  
  3191.  move.w (a2,d0.w*4),d4
  3192.  move.w 2(a2,d0.w*4),d5
  3193.  move.w (a2,d1.w*4),d6
  3194.  move.w 2(a2,d1.w*4),d7
  3195.  
  3196.  sub.w d4,d6
  3197.  sub.w d5,d7
  3198.  swap d4
  3199.  swap d5
  3200.  clr.w d4
  3201.  clr.w d5
  3202.  swap d6
  3203.  swap d7
  3204.  clr.w d6
  3205.  clr.w d7
  3206.  
  3207.  divs.l YDIFF-2,d6
  3208.  divs.l YDIFF-2,d7
  3209.  
  3210.  move.l d6,a4
  3211.  move.l d7,a5
  3212.  
  3213.  muls #10,d0
  3214.  muls #10,d1
  3215.  move.l (a1,d0.w),d6
  3216.  
  3217.  move.l (a1,d1.w),d7
  3218.  asl.l #5,d6
  3219.  asl.l #5,d7
  3220.  sub.l d6,d7
  3221.  divs.l YDIFF-2,d7
  3222.  move.l d7,a2
  3223.  move.l d6,a6
  3224.  
  3225.  move.l 4(a1,d0.w),d6
  3226.  move.l 4(a1,d1.w),d7
  3227.  asl.l #5,d6
  3228.  asl.l #5,d7
  3229.  sub.l d6,d7
  3230.  divs.l YDIFF-2,d7
  3231.  exg d7,a6
  3232.  exg d7,d6
  3233.  
  3234.  move.w 8(a1,d0.w),d0
  3235.  move.w 8(a1,d1.w),d1
  3236.  swap d0
  3237.  swap d1
  3238.  clr.w d0
  3239.  clr.w d1
  3240.  asr.l #2,d0
  3241.  asr.l #2,d1
  3242.  sub.l d0,d1
  3243.  divs.l YDIFF-2,d1
  3244.  move.l d1,a1
  3245.  move.l YDIFF-2,d1
  3246.  subq #1,d1
  3247.  
  3248. ; d3=sx a0=dsx
  3249. ; d4=u a4=du
  3250. ; d5=v a5=dv
  3251. ; d6=x a2=dx
  3252. ; d7=y a6=dy
  3253. ; d0=z a1=dz
  3254. ; d1=dsy
  3255.  
  3256.  
  3257.  add.l #128*65536,d6
  3258.  add.l #128*65536,d7
  3259.  add.l #128*65536,d0
  3260.  
  3261. .PUTINLINE:
  3262.  swap d3
  3263.  move.w d3,(a3)+
  3264.  swap d3
  3265.  add.l a0,d3
  3266.  move.l d4,(a3)+
  3267.  add.l a4,d4
  3268.  move.l d5,(a3)+
  3269.  swap d6
  3270.  add.l a5,d5
  3271.  move.w d6,(a3)+
  3272.  swap d6
  3273.  swap d7
  3274.  add.l a2,d6
  3275.  move.w d7,(a3)+
  3276.  swap d7
  3277.  swap d0
  3278.  add.l a6,d7
  3279.  move.w d0,(a3)+
  3280.  swap d0
  3281.  add.l a1,d0
  3282.  dbra d1,.PUTINLINE
  3283.  
  3284.  tst.b Gouraud
  3285.  beq .noline
  3286.  
  3287.  move.w TOPPTNUM,d0
  3288.  move.w BOTPTNUM,d1
  3289.  move.l TOPPTR,a3
  3290.  moveq #0,d6
  3291.  move.w YDIFF,d6
  3292.  
  3293.  move.l #SPECBRIGHTS,a2
  3294.  
  3295.  move.w 2(a2,d0.w*4),d2
  3296.  move.w 2(a2,d1.w*4),d3
  3297.  
  3298.  asr.w #4,d2
  3299.  asr.w #4,d3
  3300.  
  3301.  tst.w d2
  3302.  blt .firsttowards
  3303.  bgt.s .firstaway
  3304.  
  3305.  tst.w d3
  3306.  ble .bothtowards
  3307.  bra .bothaway
  3308.  
  3309. .firstaway
  3310.  tst.w d3
  3311.  blt .sectowards
  3312.  bra .bothaway
  3313.  
  3314. .firsttowards:
  3315.  tst.w d3
  3316.  ble .bothtowards
  3317.  
  3318. ; First one is towards, the second away.
  3319. ; Do the line in two bits: one heading
  3320. ; from the first point to the rim, the
  3321. ; other heading from the rim to the second
  3322. ; point and flagged as behind.
  3323.  
  3324.  move.w d6,d7    ; total length to draw
  3325.  move.w d2,FIRSTY
  3326.  move.w d3,LASTY
  3327.  
  3328.  neg.w d2
  3329.  add.w d2,d3     ; total change in Y
  3330.  
  3331.  bra.s .onetowards
  3332.  
  3333. .sectowards:
  3334.  move.w d6,d7    ; total length to draw
  3335.  move.w d2,FIRSTY
  3336.  move.w d3,LASTY
  3337.  neg.w d3
  3338.  add.w d2,d3
  3339.  
  3340. .onetowards:
  3341.  
  3342.  muls d2,d6
  3343.  divs d3,d6    ; length of first bit of line.
  3344.  
  3345.  ext.l d6
  3346.  ext.l d7
  3347.  
  3348.  move.w d6,FIRSTLEN
  3349.  sub.l d6,d7
  3350.  move.w d7,LASTLEN
  3351.  
  3352.  add.l d7,d6
  3353.  
  3354.  move.w FIRSTY,d2
  3355.  move.w LASTY,d3
  3356.  swap d2
  3357.  clr.w d2
  3358.  swap d3
  3359.  clr.w d3
  3360.  sub.l d2,d3
  3361.  divs.l d6,d3
  3362.  move.l d3,a6
  3363.  move.l d2,d7
  3364.  
  3365.  moveq #0,d2
  3366.  moveq #0,d3
  3367.  moveq #0,d4
  3368.  moveq #0,d5
  3369.  move.b (a2,d0.w*4),d2
  3370.  move.b 1(a2,d0.w*4),d3
  3371.  
  3372.  move.w d2,FIRSTU
  3373.  move.w d3,FIRSTV
  3374.  
  3375.  move.w d2,d4
  3376.  move.w d3,d5
  3377.  sub.w #128,d2
  3378.  sub.w #128,d3
  3379.  muls d2,d2
  3380.  muls d3,d3
  3381.  add.l d3,d2
  3382.  jsr CALCSQROOT
  3383.  
  3384.  tst.w d2
  3385.  beq.s .nochng
  3386.  
  3387.  sub.w #128,d4
  3388.  sub.w #128,d5
  3389.  muls #127,d4
  3390.  muls #127,d5
  3391.  divs d2,d4
  3392.  divs d2,d5
  3393.  add.w #128,d4
  3394.  add.w #128,d5
  3395.  
  3396. .nochng:
  3397.  
  3398.  move.w d4,MIDU
  3399.  move.w d5,MIDV
  3400.  
  3401.  move.b (a2,d1.w*4),d4
  3402.  move.b 1(a2,d1.w*4),d5
  3403.  move.w d4,SECU
  3404.  move.w d5,SECV
  3405.  
  3406. ; move.w d4,d2
  3407. ; move.w d5,d3
  3408. ;
  3409. ; sub.w #128,d2
  3410. ; sub.w #128,d3
  3411. ; muls d2,d2
  3412. ; muls d3,d3
  3413. ; add.l d3,d2
  3414. ; jsr CALCSQROOT
  3415. ;
  3416. ; tst.w d2
  3417. ; beq.s .nochng2
  3418. ;
  3419. ; sub.w #128,d4
  3420. ; sub.w #128,d5
  3421. ; muls #127,d4
  3422. ; muls #127,d5
  3423. ; divs d2,d4
  3424. ; divs d2,d5
  3425. ; add.w #128,d4
  3426. ; add.w #128,d5
  3427. ; 
  3428. ;.nochng2:
  3429. ;
  3430. ; add.w MIDU,d4
  3431. ; add.w MIDV,d5
  3432. ; asr.w #1,d4
  3433. ; asr.w #1,d5
  3434. ; move.w d4,MIDU
  3435. ; move.w d4,MIDV
  3436.  
  3437.  move.l #NORMBRIGHTS,a2
  3438.  move.w (a2,d0.w*2),d0
  3439.  move.w (a2,d1.w*2),d1
  3440.  
  3441.  sub.w d0,d1
  3442.  swap d1
  3443.  swap d0
  3444.  divs.l d6,d1
  3445.  
  3446.  move.w FIRSTLEN,d6
  3447.  beq.s .nofirstbit
  3448.  ext.l d6
  3449.  
  3450.  moveq #0,d2
  3451.  moveq #0,d3
  3452.  moveq #0,d4
  3453.  moveq #0,d5
  3454.  move.w FIRSTU,d2
  3455.  move.w MIDU,d3
  3456.  move.w FIRSTV,d4
  3457.  move.w MIDV,d5
  3458.  
  3459.  sub.w d2,d3
  3460.  swap d2
  3461.  swap d3
  3462.  divs.l d6,d3
  3463.  move.l d3,a4
  3464.  
  3465.  sub.w d4,d5
  3466.  swap d4
  3467.  swap d5
  3468.  divs.l d6,d5
  3469.  move.l d5,a5
  3470.  
  3471.  bsr DOABITOFLINE
  3472. .nofirstbit:
  3473.  
  3474.  move.w LASTLEN,d6
  3475.  beq.s .nosecbit
  3476.  ext.l d6
  3477.  
  3478.  moveq #0,d2
  3479.  moveq #0,d3
  3480.  moveq #0,d4
  3481.  moveq #0,d5
  3482.  move.w MIDU,d2
  3483.  move.w SECU,d3
  3484.  move.w MIDV,d4
  3485.  move.w SECV,d5
  3486.  
  3487.  sub.w d2,d3
  3488.  swap d2
  3489.  swap d3
  3490.  divs.l d6,d3
  3491.  move.l d3,a4
  3492.  
  3493.  sub.w d4,d5
  3494.  swap d4
  3495.  swap d5
  3496.  divs.l d6,d5
  3497.  move.l d5,a5
  3498.  
  3499.  bsr DOABITOFLINE
  3500. .nosecbit:
  3501.  
  3502.  bra .noline
  3503.  
  3504. .bothaway
  3505.  
  3506. ; Both are away, so do it simply.
  3507.  
  3508. .bothtowards:
  3509.  
  3510. ; Both are towards, so do it simply and flag all
  3511. ; points as towards.
  3512.  
  3513.  swap d2
  3514.  clr.w d2
  3515.  swap d3
  3516.  clr.w d3
  3517.  sub.l d2,d3
  3518.  divs.l d6,d3
  3519.  move.l d3,a6
  3520.  move.l d2,d7
  3521.  
  3522.  moveq #0,d2
  3523.  moveq #0,d3
  3524.  moveq #0,d4
  3525.  moveq #0,d5
  3526.  move.b (a2,d0.w*4),d2
  3527.  move.b (a2,d1.w*4),d3
  3528.  move.b 1(a2,d0.w*4),d4
  3529.  move.b 1(a2,d1.w*4),d5
  3530.  
  3531.  sub.w d2,d3
  3532.  swap d2
  3533.  swap d3
  3534.  divs.l d6,d3
  3535.  move.l d3,a4
  3536.  
  3537.  sub.w d4,d5
  3538.  swap d4
  3539.  swap d5
  3540.  divs.l d6,d5
  3541.  move.l d5,a5
  3542.  
  3543.  move.l #NORMBRIGHTS,a2
  3544.  move.w (a2,d0.w*2),d0
  3545.  move.w (a2,d1.w*2),d1
  3546.  
  3547.  sub.w d0,d1
  3548.  swap d1
  3549.  swap d0
  3550.  divs.l d6,d1
  3551.  
  3552.  bsr DOABITOFLINE
  3553.  
  3554. .noline:
  3555.  rts
  3556.  
  3557.  DOABITOFLINE:
  3558.  subq #1,d6
  3559.  
  3560. .STICKINGOUR:
  3561.  swap d7
  3562.  move.b d7,2(a3)
  3563.  swap d7
  3564.  add.l a6,d7
  3565.  swap d0
  3566.  move.w d0,4(a3)
  3567.  swap d0
  3568.  add.l d1,d0
  3569.  swap d2
  3570.  move.b d2,8(a3)
  3571.  swap d4
  3572.  move.b d4,9(a3)
  3573.  swap d4
  3574.  adda.w #16,a3
  3575.  swap d2
  3576.  add.l a4,d2
  3577.  add.l a5,d4
  3578.  dbra d6,.STICKINGOUR
  3579.  
  3580.  rts
  3581.  
  3582. FIRSTY: dc.w 0
  3583. LASTY: dc.w 0
  3584. FIRSTU: dc.w 0
  3585. SECU: dc.w 0
  3586. FIRSTV: dc.w 0
  3587. SECV: dc.w 0
  3588.     dc.w 0
  3589. FIRSTLEN: dc.w 0
  3590.     dc.w 0
  3591. LASTLEN: dc.w 0
  3592. MIDU: dc.w 0
  3593. MIDV: dc.w 0
  3594.  
  3595. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3596.  
  3597.  
  3598.  
  3599. ************************************************
  3600. ************************************************
  3601. ************************************************
  3602. ************************************************
  3603. ************************************************
  3604. ************************************************
  3605. ************************************************
  3606. ************************************************
  3607. ************************************************
  3608. ************************************************
  3609. ************************************************
  3610. ************************************************
  3611. ************************************************
  3612. ************************************************
  3613. ************************************************
  3614. ************************************************
  3615. ************************************************
  3616.  
  3617.  move.w d3,TOPLINE
  3618.  move.w d4,BOTLINE
  3619.  
  3620.  
  3621.  
  3622.  
  3623. *********************************************
  3624.  
  3625. CALCSQROOT:
  3626.  tst.l d2
  3627.  beq .oksqr
  3628.  
  3629.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  3630.  
  3631.  move.w #31,d0
  3632. .findhigh
  3633.  btst d0,d2
  3634.  bne .foundhigh
  3635.  dbra d0,.findhigh
  3636. .foundhigh
  3637.  asr.w #1,d0
  3638.  clr.l d3
  3639.  bset d0,d3
  3640.  move.l d3,d0
  3641.  
  3642.  move.w d0,d1
  3643.  muls d1,d1    ; x*x
  3644.  sub.l d2,d1    ; x*x-a
  3645.  asr.l #1,d1    ; (x*x-a)/2
  3646.  divs d0,d1    ; (x*x-a)/2x
  3647.  sub.w d1,d0    ; second approx
  3648.  bgt .stillnot0
  3649.  move.w #1,d0
  3650. .stillnot0
  3651.  
  3652.  move.w d0,d1
  3653.  muls d1,d1
  3654.  sub.l d2,d1
  3655.  asr.l #1,d1
  3656.  divs d0,d1
  3657.  sub.w d1,d0    ; second approx
  3658.  bgt .stillnot02
  3659.  move.w #1,d0
  3660. .stillnot02
  3661.  
  3662.  move.w d0,d1
  3663.  muls d1,d1
  3664.  sub.l d2,d1
  3665.  asr.l #1,d1
  3666.  divs d0,d1
  3667.  sub.w d1,d0    ; second approx
  3668.  bgt .stillnot03
  3669.  move.w #1,d0
  3670. .stillnot03
  3671.  
  3672.  move.w d0,d2
  3673.  ext.l d2
  3674.  
  3675.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  3676.  
  3677. .oksqr
  3678.  rts
  3679.  
  3680.  
  3681. **********************************************
  3682. **********************************************
  3683. **********************************************
  3684. **********************************************
  3685. **********************************************
  3686. **********************    ************************
  3687. **********************************************
  3688. **********************************************
  3689. **********************************************
  3690. **********************************************
  3691. **********************************************
  3692. **********************************************
  3693. **********************************************
  3694. **********************************************
  3695. **********************************************
  3696. **********************************************
  3697. **********************************************
  3698. **********************************************
  3699. **********************************************
  3700.  
  3701. TOPLINE: dc.w 0
  3702. BOTLINE: dc.w 0
  3703.  
  3704.  
  3705.  
  3706. **********************************************
  3707. **********************************************
  3708. **********************************************
  3709. **********************************************
  3710. **********************************************
  3711. **********************************************
  3712. **********************************************
  3713. **********************************************
  3714. **********************************************
  3715. **********************************************
  3716. **********************************************
  3717. **********************************************
  3718. **********************************************
  3719. **********************************************
  3720. **********************************************
  3721. **********************************************
  3722. **********************************************
  3723. **********************************************
  3724. **********************************************
  3725.     
  3726.  
  3727.     
  3728.  dc.w 0
  3729. YDIFF: dc.w 0
  3730.  
  3731. SPINAROUND: dc.w 0    
  3732. XCOS: dc.w 0
  3733. YCOS: dc.w 0
  3734. XSIN: dc.w 0
  3735. YSIN: dc.w 0
  3736. XCOS3: dc.w 0
  3737. YCOS3: dc.w 0
  3738. XSIN3: dc.w 0
  3739. YSIN3: dc.w 0
  3740. XCOS2: dc.w 0
  3741. YCOS2: dc.w 0
  3742. XSIN2: dc.w 0
  3743. YSIN2: dc.w 0
  3744. XADD: dc.l 0
  3745. YADD: dc.l 0
  3746. ZADD: dc.l 0
  3747. XOFF: dc.w 0
  3748. YOFF: dc.w 0
  3749. OLDXM: dc.w 0
  3750. OLDYM: dc.w 0
  3751.  
  3752.  
  3753.  
  3754. TEXTUREADD: dc.w 0
  3755.  
  3756.  
  3757. **********************************************************
  3758.  
  3759. UVCOORDS: ds.l 250
  3760. ROTATEDPTS: ds.l 250*4
  3761. SHADOWPTS: ds.l 250*4
  3762. ONSCREENPTS: ds.l 250
  3763.  
  3764. ZOFF: dc.w 768
  3765.  
  3766. LEFTRIGHT: ds.l 256
  3767.  
  3768. POLYGONDATA:
  3769.  ds.b 30000
  3770.  
  3771. OBJNAME: dc.b "ab3:vectobj/testcube",0
  3772.  even
  3773. doslibname: dc.b 'dos.library',0
  3774.  even
  3775. doslib: dc.l 0
  3776.  
  3777. ****************************
  3778.  
  3779. SINETABLE:
  3780.  incbin "ab3:includes/bigsine"
  3781.  
  3782.  
  3783. YANG: dc.w 0
  3784. XANG: dc.w 0
  3785.  
  3786.  
  3787. xmouse: dc.w 0
  3788. ymouse: dc.w 0
  3789.  
  3790. spleen: dc.w 0
  3791. lastspleen: dc.w 0
  3792.  
  3793. COPIEDPAL:
  3794.  dc.w 256,0
  3795.  ds.l 3*256
  3796.  ds.l 10
  3797.  
  3798. SHADOWBUFFER: ds.l 65536/4
  3799. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  3800.  
  3801. PALETTEBIT:
  3802. ; incbin "256palette"
  3803. ; dc.w $ffff,$fffe
  3804.  
  3805.  incbin "ab3:shadowtex/shadowpal"
  3806.  
  3807.  include "ab3:source_4000/chunky.s"
  3808.  
  3809. willy: ds.w 48
  3810.  
  3811.  
  3812. PALS:
  3813.  ds.l 2*49
  3814.  
  3815. pregour: dc.b 0
  3816. Gouraud: dc.b 0
  3817.  
  3818. PointAngPtr: dc.l 0
  3819. FRAMENUM: dc.w 0
  3820. PolyAngPtr: dc.l 0
  3821. PtsPtr: dc.l 0
  3822. LinesPtr: dc.l 0
  3823. POINTER_TO_POINTERS: dc.l 0
  3824. FRAME: dc.w 4
  3825. FLIBBLE: dc.w 0
  3826. START_OF_OBJECT: dc.l 0
  3827. num_points: dc.w 0
  3828. num_frames: dc.w 0
  3829. SORTIT: dc.w 0
  3830. PartBuffer: ds.l 2*32
  3831. endparttab:
  3832.  
  3833. x1: dc.w 0
  3834. y1: dc.w 0
  3835. z1: dc.w 0
  3836. x2: dc.w 0
  3837. y2: dc.w 0
  3838. z2: dc.w 0
  3839. x2b: dc.w 0
  3840. y2b: dc.w 0
  3841. z2b: dc.w 0
  3842.  
  3843. x3: dc.w 0
  3844. y3: dc.w 0
  3845. z3: dc.w 0
  3846.  
  3847. l1: dc.w 0
  3848. l2: dc.w 0
  3849.  
  3850. OBJONOFF: dc.l 0
  3851.  
  3852. SAVEHIGHS: ds.w 30
  3853.  
  3854. FASTBUFFER:
  3855.  dc.l fasty
  3856.  
  3857. fasty: ds.b 320*256
  3858.  
  3859. NORMBRIGHTS: ds.w 250
  3860.  
  3861. SPECBRIGHTS:
  3862.  dcb.l 100,31
  3863.  
  3864. ENDNORM:
  3865.  
  3866. LEFTUVS: ds.w 8*256
  3867. RIGHTUVS: ds.w 8*256
  3868.  
  3869. NORMVECTS: ds.w 3*250
  3870.  
  3871. ;WORLD: incbin "ab3:includes/world"
  3872.  
  3873. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  3874.  
  3875.  
  3876.  
  3877. NEBBIE: incbin "work:temp/nebbieroar"
  3878.     ds.l (192/4)*16
  3879.  
  3880.  SECTION blib,code_f
  3881.  
  3882. TEXTURES:
  3883.  incbin "ab3:includes/shadowmaps"
  3884.  even
  3885.  
  3886.  SECTION BGDROP,code_c
  3887.  
  3888. RAWSCRN:
  3889.  ds.l 2560*8
  3890.